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as Programas para 
TK 90X que falam nossa língua. 


Finalmente, uma empresa nacional assumiuuma São jogos animados, inteligentes, programas com 
atitude brasileira: editar programas jogos para TK 90X | aplicações profissionais, educacionais, 
em português. A Disprosoft está lançando comerciais e utilitários. Procure o seu programa, 
programas inéditos no Brasil. nas melhores lojas. 
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Informática esteve “chocado”. As 

profundas alterações da política mo- 
netária decretadas pelo presidente deixaram 
os empresários como que anestesiados, e 
quase nenhum negócio se fez. Muitos fabri- 
cantes “pararam”. Outros honestamente 
acmitiam: “estamos com produção normal, 
não sabemos é se estamos vendendo”. As 
revendas realmente preferiram não fechar 
muita coisa. Os compradores também ini- 
bidos ficaram em compasso de espera. 


Ora, no meio da confusão reinante, 
com o setor ainda tipo “barata-tonta”, eis 
que desembarca em nosso país um autênti- 
co ET. O conhecido empresário norte- 
americano Adam Osborne, criador de por- 
táteis peso-pluma, veio ao Brasil para uma 
palestra sobre Tendências da Microinfor- 
mática. E, alheio à “aflição” da indústria, 
ele — que já conheceu o gosto do fracasso — 
listou algumas regras para se alcançar su- 
cesso. 

Osborne acredita que a política de reser- 
va de mercado praticada.no Brasil — dada à 
extensão dos segmentos que abrange — não 
dará certo. Segundo ele, existe uma tendên- 
cia de comprar-se componentes e peças de 
todas as partes do mundo, para se chegar a 
um preço mais acessível, e antes do final 
de 86, será possível comprar um PC-like 
(512 Kb e dois drives de 5 1/4") por US$ 
500, e um XT-like (512 Kb e Winchester de 
10 Mb) por US$ 1000. Nos USA, é claro. 
Este processo irá, inclusive, determinar a 
perda de fatias de mercado da IBM, pois 
o consumidor preferirá comprar clones 
estrangeiros mais baratos (ele espera com 
ansiedade o lançamento, daqui há 3 meses, 
do PC da Amstrad, empresa inglesa que vem 
ganhando mercado por seus produtos 
de boa qualidade e baixo custo). 

Assim, seu conselho foi de que nossa in- 
dústria se especializasse no que fazemos me- 
lhor F[sintomaticamente, ele não disse o 
que!) e importasse, por exemplo, drives, mo- 
nitores e teclados, “que apresentam preços 
desastrosos””. 


E arrematou com a pergunta: em que a 
nação perde mais: importando disk -drives 
ou vendendo 30 mil micros (PCs) por ano, 
quando existe potencial para 500 mil ou 
1! milhão? Polêmico o rapaz. Ele só não 
previu que, ao atingir a escala de 500 mil, 
nossa indústria talvez alcançasse preço para 
fabricar os drives. Teríamos, contudo, chan- 
ces de voltar a comer do bolo? De qualquer 
maneira, deixo com vocês alguns pensamen- 
tos deste ET da microinformática brasileira: 


D urante o mês de março, o setor de 


e HARDWARE: “Nada é mais significativo que a 
tendência à padronização. Máquinas não compativeis 
com o IBM-PC são relegadas a mercados secundários”. 
e COMPATIBILIDADE: “É como gravidez; existe 
ou não. Não há meio termo”. 

e APPLE: “O Apple Il está morrendo. O Lisa foi 
um desastre; o Macintosh um semidesastre””. 

e AMIGA e ATARI ST: “Nenhum tem chance 
de sucesso. Venderão um pouco e irão 
desaparecer, pois estão competindo com o IBM-PC”. 


tda Prece pers 













á 
PHT Sistemas Eletrônicos S.A. ” /VICrO 
Bi Sistemas 

















ANO V — N.º 55 — ABRIL 1986 


SUMÁRIO 


93 ORGANIZE SEUS ARQUIVOS 
7, José Rafael Sommerfeld explica, passo a passo, como se 


= deve proceder na organização dos dados de um programa. 


9) 99 CBBS: A INFORMAÇÃO VIA COMPUTADOR 
|| 5 Oquesãoe como estão hoje os CBBS no Brasile exterior. E 
»” ainda dicas para quem quer criar seu próprio sistema. 


9) SE CADASTRO 
"4 Programa de Gilson Roberto Viana para a criação e 
* » armazenamento de fichas cadastrais. Linha ZX81. 


4% GRAVAÇÃO NO TK90X 


Fe Neste artigo Aldo Barduco e Pierluigi Piazzi explicam as 
=" formas de gravação, carregamento e verificação no TK90X. 


STA SÍNTESE DA VOZ 
| + Uma abordagem sobre a tecnologia de síntese da voz e 
ds à análise das técnicas utilizadas. Artigo de Frederico Meloni. 


9 4» MENSAGEM DE ERRO NO COLOR 
PÁ | ”) Cláudio Costa mostra neste artigo como melhorar as 
"| 4 rotinas de error trap nos micros da linha Color. 


PS 99 CURSO DE FORTH (Mil) 
| | Naúltima lição da série, Antônio Costa mostra como cons- 
“4 “ truir um compilador, utilizando a linguagem FORTH. 


==" 43 COMANDOS DO MSX 
1, Artigo de Oscar Júlio Burd e Luiz Sérgio Moreira contendo 
+ um resumo dos principais comandos do BASIC MSX. 


BANCO DE SOFTWARE 


29 TOQUE MUSICA 
NO SEU MICRO 
30 TYPE PARA O APPLE 
32 CADASTRO DE PROGRAMAS 
34 SINTEVOX 
36 LIMPADOR DE CABEÇOTE 


SEÇÕES 


4 CARTAS 


39 MAQSORTE 

40 JOGO DA VELHA 
TRIDIMENSIONAL 

42 DITADO 

44 MICROCIRCO 





56 DICAS 
55 LIVROS 


61 ÍNDICE DE 
ANUNCIANTES 


24 BITS 


CAPA: Maurício Veneza 





sistéie 


EDITORA/DIRETORA RESPONSÁVEL: 
Alda Surerus Campos 


ASSESSORIA TÉCNICA: 

Roberto Quito de Sant'Anna; José Eduardo Neves; 
Luiz Antônio Pereira; Cláudio José Costa. 

CPD: Divino C. R. Leitão (coordenação); Pedro Pau- 
lo Pinto Santos. 


REDAÇÃO: Graça Santos (Subeditoria); Stella 
Lachtermacher; Mônica Alonso Monçores; Carlos 
Alberto Azevedo; Luiz Alberto M, Prado. 
COLABORADORES: Aldo Naletto Jr.; Alvaro de 
Filippo; Amaury Moraes Jr.; André Koch Zielasko; 
Amtonio Costa Pereira; Ari Morato; Cláudio de Frei- 
tas Bitencourt; Evandro Mascarenhas de Oliveira; 
Geraldo Simonetti Bello; Heber Jorge da Silva; Ivan 
Camilo da Cruz; João Antônio Zuffo; João Henri- 
que Volpini Mattos; José Carlos Niza; José Ribeiro 
Pena Neto; Lávio Pareschi; Luciano Nilo de Andra- 
de; Luis Carlos Eiras; Luis Carlos Nardy; Marcel Ga- 
meleira de : Marcel Tarisse da Fontou- 
ra, Maurício Costa Reis; Marcelo Renato Rodrigues; 
Mário José Bittencourt; Nelson Hisashi Tamura; 
Neison N. S. Santos; Newton D. Braga Jr.; Paulo 
Sérgio Goncalves; Rizieri Maglio; Rudolph Horner 
Jr.; Sérgio Veludo. 

ARTE: Claudia Duarte coordenação); Leonardo 
Santos (diagramação); Maria Christina Coelho Mar- 
ques (revisão); Wellington Silvares e Marco Antó- 
mo Rubim (arte-final). 

ACOMPANHAMENTO GRÁFICO: Fábio da Silva 
ADMINISTRAÇÃO: Janete Sarno 


PUBLICIDADE: 

São Paulo: 

Geni dos Santos Roberto 

Contato: Paulo Gomide; Irani Cardoso 

Teis.: (011) 853-3229, 853-3152 

Rio de Janeiro: 

Elizabeth Lopes dos Santos 

Contatos: Regina Gimenez: Georgina de Oliveira 
Tel.: (021) 262-6306. 


Minas Gerais: 
Sidney Domingos da Silva 


Rua da Bahia, 1148 - sala 1318 

CEP 30.000 - Belo Horizonte 

Porto Alegre: 

AURORA - ASSESSORIA EMPRESARIAL LTDA. 
Rua dos Andradas, 1155 - Grupo 1606 -.16º andar 
Tel.: (0512) 26-0839 

CIRCULAÇÃO E ASSINATURAS: 

Ademar Belon Zochio (RJ) 

— José Antônio Alarcon [SP] - Tel.: (011) 853-3800 


COMPOSIÇÃO: 

Studio Alta, Coopim 

FOTOLITO: 

Organizações Beni e Juracy Freire 
IMPRESSÃO: 

JB Indústrias Gráficas 
DISTRIBUIÇÃO: 

Fernando Chinagha Distribuidora Ltda. 
Tel.: 10211 268-9112 
ASSINATURAS: 

No pais: 1 ano Cz$ 140,00 


Filiada ao 


IV 


Os artigos assinados são de responsabilidade úni- 
ca e exclusiva dos autores. Todos os direitos de re- 
produção do conteúdo da revista estão reservados 
e qualquer reprodução, com finalidade comercial ou 
não, só poderá ser feita mediante autorização pré- 
via. Transcrições parciais de trechos para comen- 
tários ou referências podem ser feitas, desde que se- 
jam mencionados os dados bibliográficos de MI- 
CRO SISTEMAS. A revista não aceita material pu- 
blicitário que possa ser confundido com matéria re- 


— Am 


MICRO SISTEMAS é uma publicação mensal da 
Análise, Teleprocessamento e Informática Edi- 
tora Ltda. 

Endereços: 

Rua Oliveira Dias, 153 - Jardim Paulista - São Pau- 
lo/ SP - CEP 01433 - Tels.: (0171) 853-3800 e 881-5668 
(redação! 

Av. Pres. Wilson, 165 - grupo 1210 - Centro - Rio de 
Janeiro/RJ - Tel.: (021) 262-6306 











DE 
me AI Tas 


O sorteado deste mês, que receberá uma assina- 
tura anual da revista MICRO SISTEMAS, é 
Francisco Fukumoto, de São Paulo - SP. 


DÚVIDAS SOBRE MSX /S 


Sou usuário de um micro TK-2000 e pre- 
tendo trocá-lo por um compatível com o 
MSX. Já foram publicadas muitas informações 
em MICRO SISTEMAS à respeito dessa linha, 
mas mesmo assim ainda tenho algumas dúvidas. 


a) Os cartuchos do Hotbit entram no Expert e 
vice-versa?; 

b) Quando vão chegar aqui na Bahia o Expert 
eo Hotbit?; 

c) O teclado do Expert é mecânico ou por 
indução magnética? E o do Hotbit?; 





Jorge Pablo Zapata Rivera 
Salvador — BA 


Prezado Jorge, enviamos suas dúvidas aos 
dois fabricantes. Entretanto, até o momento, 
só recebemos a resposta da Gradiente. 

“Caro Jorge P. Z. Rivera, referente as suas 
perguntas, esclarecemos os seguintes pontos: 


a) Os cartuchos do Expert são 100% compat/- 
veis com o Hotbit; 


b) Na Bahia, vocé poderá encontrar o Expert 
nas seguintes lojas; Crezosom — Rua Santo 
Agostinho, 60; Decorasom -— Av. Antônio 
Carlos Magalhães, quadra 4 e Mesbla — Av. 
Antônio Carlos Magalhães; 


c) O teclado do Expert é mecánico e, através 
de um projeto bem elaborado, nos dá a precisão 
e durabilidade necessárias às exigências do pa- 
drão Gradiente; 


ARQUIVO DE TELAS 5 


No número 50 de MICRO SISTEMAS, li 
um artigo que muito me interessou: “Arquivo 
de telas”. Gostaria de fazer apenas duas pergun- 
tas ao autor daquele artigo: Como poderia 
apagar por completo o programa anteriormente 
arquivado, já que ele diz que o arquivo não é 
afetado por CLEAR ou NEW? O botão de 
RESET faria isso? A outra pergunta é a seguin- 
te: Fiz um pequeno programa para desenhar 
na tela do micro que uso (um CP 500). Como 
eu poderia, ao invés de arquivar o desenho (o 
programa também fica arquivado, não?), salvá- 
lo num disquete e, por exemplo, usá-lo na 
apresentação de um jogo qualquer? Assim, 
quando esse jogo fosse solicitado, apareceria 
o desenho feito com o programa do desenho e 
depois o jogo, normalmente. 


Lu ís Eduardo de Rosa Silva 
Campo Grande — MS 


Luís Eduardo, sua carta foi remetida ao 
autor do artigo citado, Luiz Ferraz Netto, 
que enviou-nos a seguinte resposta: 

“Antes da resposta, porém fazendo parte 
dela, uma correção de conceito na pergunta. 
CLEAR ou NEW não apagam nada. Em técnica 
de computação nada é apagado (seu programa 
BASIC não é apagado por NEW, as variáveis 


não são zeradas pelo CLEAR); em computação, 
perde-se o endereço! O NEW apenas zera os 
dois primeiros bytes na área do programa (que 
é um endereço, um LINK). Logo, o programa 
BASIC, após um NEW, pode ser facilmente 
recuperado, listado e novamente posto pronto 
para rodar. O CLEAR apenas muda os pointers 
dos inícios das áreas das variáveis (altera endere- 
ços apontadores). Assim, os valores das variá- 
veis também podem ser recuperados após 
um CLEAR, é só saber trabalhar nessa área de 
memória. Enfim, nada é perdido. .. a menos 
que o operador queira. 

E agora a resposta... basta deixar que os 
endereços perdidos continuem perdidos! Se 
você apertar RESET e não reservar memória al- 
guma (por ocasião da inicialização), os pointers 
do stack do sistema e dos valores das variáveis 
strings se incumbem de deixar o assunto ante- 
riormente arquivado desprotegido. As primeiras 
digitações e execuções de um novo programa 
irão paulatinamente substituindo as informa- 
ções que anteriormente estavam protegidas... 
tudo vai se perdendo aos poucos. . . irremedia- 
velmente. 

Agora, a outra resposta. Como você preten- 
de associar o desenho arquivado com outros 
programas, em disco, a técnica de arquivamento 
deve ser outra. Os bytes das telas arquivadas 
devem estar na área do programa e pertencen- 
tes, portanto, às linhas lógicas. Os bytes podem 
estar armazenados em constantes strings, li- 
nhas REM, linhas de DATAS, etc. Recomendo 
para completo entendimento desses arquiva- 
mentos que você leia os artigos publicados pela 
Saber Eletrônica, números 157 e 158, também 
de minha autoria. Lá são esmiuçadas as técni- 
cas de hibridação de BASIC com linguagem 
de máquina. Uma vez armazenados os bytes 
da tela nos modos indicados nesses artigos, 
daí para a frente, é só usar os comandos do 
TRS-DOS ou DOS-500 para seu CP 500 para 
dar um MERGE entre o programa da memória 
flinhas de valores baixos) com o programa do 


disco (linhas de valores altos). ” 


É com grande satisfação que escrevo a esta 
maravilhosa revista. Leio MS desde setembro / 
83 e afirmo que esta nunca me desapontou, 
publicando programas e artigos da melhor qua- 
lidade e autoria. Sugiro que a seção Hardware 
passe a publicar esquemas de interfaces e outros 
dispositivos, pois esse tipo de literatura técnica 
é um pouco raro de se encontrar. 

Francisco Fukumoto 
São Paulo - SP 


Luiz Ferraz Netto 
São Paulo - SP 


SUGESTÕES 


Venho parabenizá-los pelo apoio que esta 
revista tem dado aos usuários da linha Sinclair 
e pelos programas para o TK90X. 

Aproveitando a oportunidade pedirei a 
vocês que, se fosse possível, publicassem o 
Mapa da ROM do TK90X ou suas principais 
rotinas. 

Aquilino Novaes Rodrigues 
Frutal — MG 


Envie sua correspondência para: ATI — Análise, 
Teleprocessamento e Informática Editora Ltda., 
Av. Presidente Wilson, 165/gr. 1210, Centro, 
Rio de Janeiro/RJ, CEP 20030, Seção Cartas/ 
Redação MICRO SISTEMAS. 
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Nova Linha de Terminais Cobra & 


têm o prazer de convidar 
Você e sua Exma. Diretoria para o enlace 
matrimonial de seus filhos 





a realizar-se nos CPDs 
das empresas de maior borte deste baís. 
Devido à total compatibilidade entre 
os nubentes, não haverá nenhuma cerimônia. 
Os cumprimentos serão recebidos 
no próprio local de instalação. 


Dotes do noivo: 
Terminal Concentrado Cobra TR 278 


Dotes da noiva: 
Unidade IBM 3278, 


Terminal Autônomo/ modelo 2 
Concentrado Cobra TR 27 Unidade IBM 3276, 
Unidade de Controle Remota CT 274 modelo 2 


Unidade de Controle 
Remota IBM 3274 


Emuladores TR 278 
Emuladores TR 276 


Os nubentes comunicam que, por amor, suportam a utilização do protocolo de linha BSC3. 


Aplicações Interativas em Ambiente IBM 


Caio 


À 


Conheça as técnicas básicas de organização de dados e coloque 
em ordem a sua agenda telefônica, orçamento ou saldo bancário. 








Organize seus arquivos 


José Rafael Sommerfeld 


uitas vezes nos sentamos à 
frente do microcomputador 
e começamos a fazer um pro- 
grama para controle de orça- 
mento doméstico, agenda telefônica, sal- 
do bancário, etc. Nesse momento, nor- 
malmente nos preocupamos em cons- 
truir um programa eficiente, utilizando 
de forma adequada as instruções e colo- 
cando, sempre que possível, aquela ro- 
tina fantástica que até nos dá grande or- 
gulho em mostrarmos aos amigos. 

No entanto, é comum observar que, 
se por um lado existe a preocupação em 
elaborar um bom programa, por outro, 
já não acontece o mesmo com os dados 
manipulados por ele. 

O objetivo deste artigo é justamente 
tratar deste assunto: a organização dos 
dados nos programas. 

Como o tema pode ser muito diverso 
— dependendo do usuário, de seu equi- 
pamento e dos periféricos que possua —, 
direcionaremos o artigo ao usuário mais 
comum de micros pessoais, ou seja, 
aquele que (como eu) tem no cantinho 
da estante um computador pessoal (não 
importa O tipo), ligado a um televisor e 
a um gravador, e que se utiliza da lingua- 
gem BASIC para construir seus progra- 
mas. 

Primeiramente, é importante enten- 
der o que são dados. Toda e qualquer in- 
formação tratada no programa será um 
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DIM A(16) 

FOR X=1. TO 19 

PRINT "ENTRE COM O VALOR "; 
INPUT B 


LET A(X)=B. 
NEXT X. 


«= FIXOS 
---—= MUTANTES 
= ARQUIVOS 


Figura 1 — A criação de um arquivo com 10 
valores 


dado. Podemos dividilos basicamente 
em três tipos: Fixos, Mutantes e Arqui- 
vos. 
Fixos — São aqueles que declaramos 
seu valor durante a construção do pro- 
grama. Servirão como fatores de opera- 
ções aritméticas, como controladores de 
procedimentos do programa, como ilus- 
trações na tela, etc. No exemplo apre- 
sentado na figura 1, os dados fixos são: 
1, 10 e Entre com o valor. 

Mutantes — São as variáveis utiliza- 
das no programa para assumirem mais 
de um valor ao longo do mesmo, porém 
sem caráter de guardar em si um igual 
valor permanentemente. No exemplo da 
figura 1, os dados variáveis são: X e B. 

Arquivos — São as variáveis utilizadas 
no programa para guardar uma informa- 








ção de forma mais permanente. Os ar- 
quivos se constituem de mais de um ele- 
mento, apresentando-se normalmente 
como uma matriz ou vetor (serão expli- 
cados adiante). Ainda no exemplo da 
figura 1, o arquivo seria a variável A. 

A partir de agora, não falaremos mais 
sobre os dados Fixos e Mutantes. Vale 
apenas uma recomendação: durante O 
desenvolvimento de um programa, cada 
vez que se for utilizar um novo dado 
Mutante, deve-se anotar o nome da va- 
riável que se utilizou para isso e o que 
ela representa. Essa pequena lista que irá 
se formando pode ajudar a saber quais 
dados estão em que lugar e quais variá- 
veis já foram utilizadas no programa. 

Falemos agora sobre arquivos. Eles 
são, em síntese, um conjunto de regis- 
tros. Os registros por sua vez, são con- 
juntos de informações que se referem a 
um mesmo item ou elemento. Cada uma 
dessas informações dos registros são 
os campos. Vejamos um exemplo. Va- 
mos supor que queremos fazer uma 
agenda telefônica simples, que contenha 
apenas o Nome e Telefone da pessoa. 
Teremos então dois campos: Nome e Te- 
lefone. Esses dois campos juntos forma- 
rão um registro e o conjunto desses re- 
gistros formará a agenda, ou seja, O ar- 
quivo. 

Os arquivos são normalmente grava- 
dos em uma memória auxiliar (disco, 


MICRO SISTEMAS, abril/86 


fita, etc.) para uma futura utilização 
(uma consulta posterior à agenda etc.). 
Em equipamentos que possuem disco se 
torna mais fácil a criação e utilização de 
arquivos, pois neles os registros podem 
ser acessados um a um, de forma bastan- 
te rápida. No entanto, ao se utilizar fi- 
tas (que não possuem a mesma velocida- 
de dos MESoa. o tempo gasto em se en- 
contrar um registro torna sua utilização 
quase inviável. A solução seria uma só: 
simular o arquivo todo na memória, 
com todos os registros juntos, de uma 
sÓ vez. 

Vejamos, então, como organizar um 
arquivo na memória. 


DEFININDO O REGISTRO 


O primeiro passo é definir o registro, 
ou seja, quais campos irá conter e quais 
os tamanhos e tipos (numéricos ou alfa- 
numéricos) de cada campo. 

Para definir os campos, deve-se reu- 
nir todas as informações que atendam 
aos objetivos do programa. Voltemos ao 
exemplo da agenda telefônica, desta vez 
ampliando um pouco mais sua utiliza- 
ção. Desejamos, então, que o programa 
permita fazer a inclusão e exclusão de 
um elemento da agenda; a pesquisa de 
um elemento através de seu nome e a 
obtenção das seguintes informações, 
após a pesquisa: Número do prefixo do 
DDD, Número do telefone, Número do 
ramal e que tipo de telefone é, ou seja, 
residencial, do trabalho, a favor, para 
recados etc. 

Pois bem, nosso registro teria então 
cinco campos, que são: Nome, Prefixo, 
Telefone, Ramal e Tipo. 

Agora, vamos definir os tamanhos e 
tipos de cada campo. Para esta tarefa, 
deve-se avaliar a informação de uma for- 
ma profunda, observando todas as im- 
plicações possíveis nesta definição. O 
campo Prefixo, por exemplo. Poderia- 
mos defini-lo como numérico, pois ape- 
nas números se apresentarão em seu 
conteúdo. No entanto, todos os códigos 
de DDD nacionais se iniciam com zero e 
se o definirmmos como numérico, ao fa- 
zer uma impressão do número 021, vá- 
rios computadores o farão apenas 21. 

Além desta análise, é importante 
também que em determinados campos 
se obtenha uma Média ou Medida Máxi- 
ma em seu tamanho. 

Média — Seria aplicada ao campo 
Nome. Em uma agenda telefônica co- 
mum é possível encontrar nomes com 
até 40 ou 50 posições, mas pode ha- 
ver casos em que o nome ocupe apenas 
duas letrinhas. Por exemplo, eu (acon- 
tece toda vez que mudo de telefone). 
Assim, deve-se estipular um tamanho 
médio julgado conveniente. O que não 
couber dos nomes grandes, deve ser 
abreviado ou simplesmente eliminado. 
Outro fato a considerar é que este cam- 
po servirá também como chave de pes- 
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quisa. Logo, o seu conteúdo deve ser 
simples o bastante para não causar con- 
fusões ao informar ao equipamento qual 
o nome que se deseja pesquisar. Assim, 
para uma agenda simples, um bom tama- 
nho para o campo Nome seria 20 posi- 
ções. 

Medida Máxima — Se aplica aos cam- 
pos Prefixo, Telefone e Ramal. Estes 
campos não podem ser abreviados nem 
tão pouco eliminados, pois a falta da 
informação não permitirá que o objeti- 
vo seja atingido. Desse modo, podemos 
deixar estes campos com os seguintes 
tamanhos: Prefixo = 4, Telefone = 7, 
Ramal = 4. Apesar de serem numéricos, 
a melhor forma de armazenamento para 
estes campos é utilizar variáveis alfanu- 
méricas, por causa dos motivos já expli- 
cados (a supressão do zero à esquerda). 

Outro caso que deve ser sempre estu- 
dado é a possibilidade de substituição de 


NOME ALFANUMÉRICO 
PREFIXO 
TELEFONE 


ALFANUMÉRICO 
ALFANUMÉRICO 
RAMAL ALFANUMÉRICO 
TIPO NUMÉRICO 

MARCA ALFANUMÉRICO 





Figura 2 — Definição dos campos de registro 


um campo que ocupe um grande tama- 
nho por um outro, de tamanho menor, 
tendo um conteúdo simbólico. Vejamos 
um exemplo. O campo Tipo poderia ter 
10 posições alfanuméricas. Seu conteú- 
do seria uma das expressões: Residência, 
Trabalho, Favor ou Recados. Observem, 
no entanto, que as expressões utilizadas 
se repetirão diversas vezes, com igual 
conteúdo em vários registros. Nesta si- 
tuação, pode-se utilizar em substituição 
à descrição por extenso apenas um códi- 
go de um dígito, que representaria a si- 
tuação daquele campo. Exemplo: | = Re- 
sidência, 2 = Trabalho, 3 = Favor e 4 
= Recados. 

Até agora já definimos todos os cam- 
pos de informação do registro. Criare- 
mos agora um outro campo que terá 


Figura 3 —- As 
formas de 
acesso aos 

campos 


ORGANIZAÇÃO 
CAMPOS 
NOME 
PREFIXO 
TELEFONE AS(X,3) 
RAMAL AS(X,4) 


TIPO AS(X,5) 
MARCA AS(X,6) 


MATRIZ 


AS(X,1) 
AS(X,2) 


como função controlar a existência ou 
não dos registros. Vejamos porquê. Os 
registros possuirão um código de aces- 
so. Esse código não estará gravado no re- 
gistro, pois ele é apenas a posição física 
do registro no arquivo. Ao incluir um re- 
gistro, deve-se informar ao equipamento 
qual o código, ou seja, a posição física 
que aquele registro ocupará. 

Observem que, fisicamente, todos os 
registros já existem, pois o arquivo deve 
ser dimensionado na memória, no início 
da sua utilização. Assim, se for dado o 
código 12 a determinado registro, o pro- 
grama deve colocá-lo no registro físico 
número 12 e marcar esse registro como 
ocupado. Essa marca permitirá, numa 
próxima inclusão, que se verifique se o 
registro já está ocupado, bloqueando as- 
sim a inclusão de outra informação so- 
bre uma já existente. Da mesma forma 
essa marca servirá para a exclusão. Se a 
marca representar um registro ocupado 
então ele poderá ser excluído, caso con- 
trário essa exclusão não terá sentido. 
Daremos então o nome de Marca a este 
novo campo. Se seu valor for igual a um 
significa que o registro físico está ocu- 
pado. Caso contrário, representa que ele 
está livre. 

Finalmente, o registro está criado. 
Observe na figura 2 sua definição. Vale 
lembrar que, em determinados equipa- 
mentos, um dígito numérico quando 
está armazenado em uma variável numé- 
rica ocupa mais espaço do que quando 
armazenado em uma variável alfanumé- 
rica. 

Uma vez definido o registro deve-se 
então dimensionar o arquivo, ou seja, 
quantos registros irão compor aquele ar- 
quivo. Por trabalhar inteiramente na 
memória, O arquivo não deve ser muito 
grande, pois o espaço ocupado pelo pro- 
grama deve respeitar a memória dispo- 
nível. Em nosso exemplo, dimensionar 
o arquivo com 100 registros seria um 
número adequado para caber em qual- 
quer equipamento de pelo menos 16 
Kb. 


FORMAS DE ORGANIZAÇÃO 


Passaremos agora a organizar esse ar- 
quivo dentro do programa. Existem vá- 


UM VETOR VÁRIOS VETORES 


AS(x)(1 TO 20) 
AS(x)(21 TO 24) 
AS(x)(25 TO 31) 
AS(x)(32 TO 35) 
AS(X)(36) 
AS(X)(37) 


X = código do registro 
OBS.: Exemplos aplicados na linha SINCLAIR 





ORGANIZE SEUS ARQUIVOS 


rias formas para isto. Citaremos três 
delas: utilizando uma matriz, utilizan- 
do um vetor e utilizando vários veto- 
res. 

As formas de acesso aos campos, em 
cada método, estão apresentadas na fi- 
gura 3. 

Utilizando uma matriz — Esta for- 
ma de organização é do ponto de vis- 
ta lógico a mais simples. No entanto po- 
derá se tornar, de acordo com os dados, 
a forma que desperdiçará maior área de 
memória. Vejamos porquê. Ao dimen- 
sionar uma matriz, informa-se o nome 
da variável, o número de linhas (que se- 
riam os registros) e o número de colunas 
(que seriam os campos). Em alguns equi- 
pamentos (Sinclair), informa-se ainda o 
número de dígitos dos campos. Um 
exemplo aplicado à linha Sinclair: DIM 
AS$(100,6,20). Com isto, o computador 
irá reservar na memória um espaço de 
100 registros com seis campos de 20 po- 
sições, pois não se pode definir um ní- 
vel da matriz de forma variável. 

Este tipo de organização é mais in- 
dicado nos casos em que todos os cam- 
pos tenham o mesmo tamanho, 

Utilizando um vetor — Vetores são 
variáveis que permitem abrigar os dados 
em linhas. Ao contrário das matrizes 
que utilizam mais de um índice, o vetor 
só usa um único índice. Ao dimensionar 
um vetor deve-se informar o número de 


elementos (registros) que ele conterá. 
Na linha Sinclair informa-se também o 
número de dígitos de cada elemento. 
Exemplo aplicado na linha Sinclair: DIM 
AS$(100,37). Com isto, o computador 
reservará espaço para 100 linhas (regis- 
tros) com 37 posições (que é o tamanho 
de cada registro). Este tipo de organiza- 
ção é mais indicado para o caso de equi- 
pamentos que possuem gravação de va- 
riáveis separadamente do programa (ZX 
Spectrum) e onde seja necessário gravar 
todo o arquivo de uma só vez. A desvan- 
tagem consiste em não poder se referen- 
ciar diretamente a um campo, sem ter 
que extraí-lo do registro, o que aumenta 
o número de instruções utilizadas no 
programa. 


Utilizando vários vetores — Esta tal- 
vez seja a forma mais prática de se or- 
ganizar um arquivo simulado na memó- 
ria, pois nela, ao contrário das demais, 
as informações dos registros se distri- 
buem entre vários vetores. Cada vetor 
tratará de um campo de todos os regis- 


tros, ou seja, no exemplo agenda, tere- 
mos um vetor para nomes, outro para 
prefixos, etc. Os campos de determina- 
do registro terão a mesma posição físi- 
ca dentro dos vetores, dessa maneira, de- 
terminado Telefone do vetor de telefo- 
nes corresponderá ao Nome do vetor de 
nomes de mesma posição. Ao dimensio- 


nar os vetores, deve-se informar em cada 
um o número de registros que o arquivo 
possui. Se o equipamento for da linha 
Sinclair, é necessário ainda citar o tama- 
nho dos campos para cada vetor. Exem- 
plo: DIM AS(100, 20), DIM B$(100,4), 
DIM C$(100,7), DIM D$(100,4), DIM 
E$(100) e DIM F$(100). Este tipo de 
organização se torna interessante para 
equipamentos que possuem instruções 
de gravação em cassete registro a regis- 
tro, como é o caso da linha TRS-80 ou 
para o caso dos equipamentos da linha 
ZX81, onde todas as variáveis são gra- 
vadas juntamente com o programa. 


Até agora foi apresentado como criar 
um arquivo e algumas formas de organi- 
zação que ele pode ter na memória. 


Em um próximo artigo, mostraremos 
a aplicação da teoria aqui apresentada 
através de um programa para controle 
de agenda telefônica, devidamente co- 
mentado. 


Vale a pena esperar... 
Até lá. 


= 
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José Rafael Sommerfeld trabalha há mais de 


cinco anos com programação de microcom- 
putadores e é autor do livro Aplicações Pes- 
soais para o TKB5, que se encontra atualmen- 
te em fase de produção gráfica. 


COISA DE MACRO 
OS MICROS DA COMPUTERWARE! 


Para quem pensa grande, a Computerware 
tem sempre os melhores preços do 
mercado, com estoques suficientes para 
uma entrega imediata e condições de 
pagamento a sua escolha. 

Além de descontos especiais, a 
Computerware oferece assistência técnica 
com profissionais altamente especializados, 
o melhor atendimento, contrato de 
manutenção e uma infinidade de vantagens, 
que fazem a nossa macro diferença, 


ROER 


PCPAQ. 


Microcomputador a ci ci 
ompaiia com 0 IBM | ; PEPAO reúne 
o rp emória pa 
de 256K, moni 0: 0 ig 
360 K. além de 2 slots adicionais P é 
expansões € con o va cr > 
incrivel à versatilidade G0 a a 
o total de 13kg, pode ser 
do quiser, protegido por uma bolsa 


ajmotadada . ..- Consulte-nos . 


TE. 1 o SEO es 


x ASSISTÊNCIA TÉCNICA x 
(021) 262-1886 


e Técnicos especializados na fábrica 
e Atendimento imediato 
e Contratos de manutenção 


UNITRON Ap Il 
Computador pessoal. 
Microprocessador 
6502, 48K de 
memória RAM e 12K 
de memória ROM, 
teclado com 
maiúsculas e 
minusculas, 8 conectores 

para expansões. 





UNITRON T.i. 

Além de reunir as características do APII, 
possui o Teclado Inteligente Unitron, que, 
diretamente, como em máquinas de 
escrever, fornece maiúsculas / minúsculas 
e acentuação da lingua portuguesa. 
Apresenta a caracteristica especial de 
permitir a programação de cada tecla com 
comandos ou funções definidos pelo 
usuário. 

Na Computerware, encontram-se também a 
disposição, todas as interfases / placas € 
periféricos do Unitron. ... Consulte-nos. 


SHOW-ROOM 


Rio - INFOSHOPPING 
Rua do Catete, 311 


VISITE NOSSO 


Rio - Av. Almirante Barroso, 91 - 11º andar - Tel.: (021) 240-7294 
Informática Rio - INFOSHOPPING - R. do Catete, 311 - (Show Room) 

São Paulo - Rua Jesuino Arruda, 797/Grupo 22 - Tel.: (011) 881-7446 
Curitiba - Av. João Gualberto, 1375 - 1º andar - Tel.: (041) 253-5433 





F = pode ser gravado em fita K7 
] = uso obrigatório de joystick 
48 = requer 48 K de RAM 

64 = requer 64K de RAM 


JOGOS - APPLE 1 


— (C2$ 80,00 — 


Sabotage (F] - evite os pára-quedistas 
Sargon (F) - go de xadrez 

Draw Polar (F) - ago de pomer 

Blackjack (F] - go de 21 (cartas) 
Checkers (F] - jogo de damas 

Hero (F] - resgate 05 maneiros perdidos 
Robotron (F] - destrua os robôs inimigos 
Falcons (F) - jogo tipo Penis 

Night Mission (F) - jogo de perbal 

Fast Gammon (F) - jogo de gamão 
Othelio (F] - jogo de tabulero 

Lode Runner - pegue 0s tesouros 
Olympic Decation - wgos olímpicos 
Space Raiders (F) - de tipo centopéss 
Gorgon (F) - gos dos Russos 

The Eliminator (F) - combate espacial 
Night Crawier (F) - enfrente as contopéuas 
Space Eggs (F1)) - caçar ovos espaciais 
Autobahn (F) - cora de carros 

The Asteroid Field (F) - tipo asterúndes 
Hard Hat Mack - perigos na construção 
Choplifter [F'J) - resgate com helicóptero 
Sea Dragon - púcte o submarno 

Spy's Demise (F) - jogo de agente secreto 
Star Blazer - combate aéreo 

Viper (F) - aumente a cobra 

Cavern Creatures - penetre na caverna 
Móon Patrol (F) - patrulha hunar 

Ms. Pac Man (F] - à namorada do Pac Mar 
Mario Bros (F) Mário contra o goria 

Buck Rogers - piote sua nave em Zoom 
Pitfall H - aventuras nas cavernas perdidas 
Castie Wolfenstein - engane 05 nazistas 
Beyond Castie Wolfenstein mate Hitier 
Antec - decitre 0 emma da prámide arteca 
Stellar 7 - combate no espaço em 30 
Super Buny - combata as pragas 

Alien Ambush (F)) - jogo tipo Arcade 

Out Post (F] - defenda a estação espacial 
Defender (5')) - defender ongmna! 

Dog Fight H (F) - contronto de jatos 

Star Trek - prada nas estrelas 

Jelhyfish - pdote um submanno 
Swashbuckder | - dueio de espadachuns 
Temple Apshal - aventura no templo 
Fight Simulator (F) - simulador de vôo 
One on One ()) - basquete com 2 jogadores 
Spare Change - poupe para sutwr na vida 


— C2$ 170,00 


Karateka - perfesta sumulação de Karaté enfrente vários adver 
sários e iberte 3 princesa do Akuma Conan - localize e des- 
trua Volta em vênas fases e com diferentes obstáculos 
Ghostbusters [)) - monte uma empresa de caça aos fantasmas 
e comece sua aventura 

Summer Games (64) - 8 modandades completas de atietsema 
com as mas emocionantes provas olimpicas. de verão 
Summer Games Il (54) - 7 novas modalidades olimpicas 
Winter Games (64) - 7 provas atiéticas de inverno 

SPY vs SPY - divertida ação de espão contra espião baseada 
nos personagens da revista MAD 

Droil - fantástica perseguição com várias fases Gráficos ncr- 
veis € ação rápida 

Sargon lil - super jogo de xadrez 

Sky Fox [1/64] - super serulador de vão com incriveis stuações 
de combate em vários nivess. Gráficos sofisticados 

F-15 Strike Eagle (1/64) incrivel semulação de um caça a jato 
15 Eagle. com combate em vários nives. Gráficos complesos 
Pinball Constructor Set [J) - monte suas próprias mesas de 


fiperama 

Vransilvania - nésia aventura, save à process Sabrina dos tes 
rivess perigos da terra de Drácula 

Archon (54)- fantástico go De estratéga. upo xadrez. com am» 
mação de gráficos 

SAM. - produz uma semulação da voz humana 

Mask of the Sun-aventura gráfica. No México você deve achar 
Os tesguros perdidos de uma antiga coiização 

Kabul Spy - ervolva-se neste Irier de espaonagem tendo o Ate- 
garistão como cenário 

Dark Crystal + aventura gráfica baseada no fime “Crista! En 
cantado”, com vários cenários 

Fight Simulator Il - prote um Piper 181 totalmente equipado 






através de realísicos cenários. Quando você estiver prepara 
do entrente um combate reai 

Seven Cities of Gold (64) - aventura gráfica Você deve achar 
0 Novo Mundo, retomando com ouro é glória para a Coroa 
The Incrivel HULK - aventura gráfica baseada na revista do 
HULK. Você deve dotar este incrivel ser de intehgência 
Capitain Goodnight (1/64) - sua messão é SALVAR O MUNDO 
das garras do terrivel Dr Maybe. localizando e destrundo a a. 
ma do juízo final 

Rescue Raiders (1/64) - plotando um hescóptsro, comande 
suas tropas, durante essa mçansóvel batalha 

Bruce Lee (1) lute Karaté como 0 famoso Bruce Lee Mate 0s 
names € os lutadores de Sum. é complete as mass uncrivess 
fases 

Me Do [)) - você é um mágico que deverá proteger o seu pomar 
de uma terrivel praga 

Were is Carmen Sandiego (64) - seja um detetive que deverá 
prender 0 culpado pelo roubo. Viaje pelo mundo coletando 
postas 


UTILITÁRIOS/APLICATIVOS - APPLE |! 
— (75 360,00 — 


Visicalc - piardha de cálculos 

Visiplot/Visitrend - gerador de gráficos 

Visidex - organizador de atividades 

Visífile - gerador de banco de dados 

Visiterm - programa de comurucação va MODEM 
Visichedule - anáise financera PERTICOM 

Apple LOGO - compilador 

Apple FORTRAN (CPIM) - compasdor 

Apple Mechanic - utilitêno gráfico 

Alpha Piot - gerador de gráficos para uso comercial 
GraFORTH - compáador 

Locksmith 5.0 - utditâno de cópa 

Niíbbles Away CI - utitário de cópia 

The Graphics Megicians - armador gráfico 

The Graphics Solution - editor de gráficos 

Print Shop - gerador de mpressos gráficos 
Magic Window ll - processador de textos 


— CzS 520,00 — 


Turbo PASCAL (CPIM) - compilador 
Take 1 - super armador gráfico 


JOYSTICK ANALÓGICO - APPLE Il 
— (75 360,00 — 


JOGOS - CP-300/500 
— Cz$ 80,00 — 


Flight Simulator (F) - emulador de vôo 
Olympic Decation (F) - jogos olimpicos 
Hoppy (F) - salve o sapo 

Armored Patrol (F) - patrulha de tanques 
Lunar Lander (F) - pouse nas crateras da lua 
Alien Defense (F) - protesa-se dos rvasores 
Meteor Mission (F) - caçada espacial 
Quthouse (F) - protesa o seu banhesro 
Robot Attack (F) - destrus os rmbós 

Sea Dragon (F) - pote um submanno 
Missile Atack (F) - defenda sua cidade 
Scartman (F) - jogo tipo Pac Man 

Cavern (F] - escape vivo da caverna 
Penetrator (F) - aprotunde-se nas cavernas 
Stelar Scort (F) - defenda-se da frota mimga 
Assauit (F) - fuja dos ágess memgos 

Demon Seed (F] - acabe com os enormes passaros 
Cosmic Fighter (F) - jogo tipo invasores 
Panik (F] - escape dos sbós 

Pinball (F) - tipo fiperama 

Crary Painter (F] - porte a teia, se puder 
Chicken (F) - ajude a galinha 

Galaxy Invasion (F) - tipo invasores 

Sargon (F) - jogo de xadrez 

Asilo (F) - aventura gráfica 

Zork | - super aventura 

Spook House - aventura gráfica 

Toxic Dumpsite - aventura gráfica 

Adventur - 4 aventuras diferentes 

FucFuc - programa pomográfico 

Ghosts (F) - cace os fantasmas de uma cidade 
Rally - complete o traseto de um rally 


UTILITÁRIOS APLICATIVOS - CP-500 
— (75 450,00 — 


Creator - gerador de programas BASIC 
Visicaic - plaruiha de cálculos 


“O SOFTWARE PARA O SEU MICRO 


Clone Ill - copsador rápido de discos 
ACCEL 3/4 - compilador BASIC 
Bascom - compadador BASIC 


— (27$ 560,00 — 


NEWDOS/8O 20 - sistema operacional 
DOSPLUS 35 - sistema operaconal 
Arranger ll - arquivo de diretórios 

Profile le - gerador de banco de dados 
SuperSCRIPSIT - processador de textos 
ZEUS - super editor assemblies 
DisnDATA - super dsassemibier 


— (275 670,00 — 


Producer - gerador de programas 
Super Utility 32 super utitána 


JOGOS - SPECTRUM/TK 90X 
-— (75 70,00 — 


Fighter Pilot (48) - púote um -15 Eagie 

Flight Simulation (48) - sumulador de vôc 
TerrorDaktil 40 (48) - ação na terra perdida 

Trader (48) - comércio e ação no espaço 

Styx (48) - ande no iabennto « mate à bruxa 
Tutankhamun (48) - explore a tumba do faraó 
Tornado (48) - pdste o anão Cenêng em 30 
Match Point [48] - fantástico tê em 30 

Cavelon (48) - uma aventura no castelo 

AD Astra (48) - saive os soldados Ação em 3D 
Galaxy Attack (48) - várias fases no espaço 

Chess (45) - jogo de xadrez com vários níves 
Android 2 (48) mate os robós Cenário em 30 
Deita Wing (48) - piote um caça -16 em 30 
Manic Miner (48) - recolha os oteetos da mina 
Potty Painter (48) - preencha os quadrados 

Pool (48) - fantástico jogo de sinuca 

Prinere (48) - recolha as peças do computador 
Piromania (48) - apague os incêndios 

The Pyramid (48) - aventura na parâmide 

30 Tank Duel (48) - super batalha de tanques 

3D Starstrike (48) - guerra nas estreias 

Son of Blagger (48) - recolha os otyetos 

Psytron (48) - defenda sua base lunar em 30 
Wheeiie (48) - pdote uma moto no subterrâneo 
Fall Guy (48) - baseado no filme DURO NA QUEDA 
Booga-Boo (48) - ajude o sapo satvando a mocinha 
Arcventure (48) - mate 0 Conde Drácula 

Huckback (48) - ade o Corcunda de Notredame 
Harrier Attack (48) - combate nas Maivinas 

SPY v SPY (48) - guerra dos espiões, em 30 
Knight Lore (48) - aventura no castelo, em 30 

Fred (48) - desvende os perigos da prâmide 
Fantastic Voyage /48) - entre no corpo humano 
Airwolf (48) - baseado no senado ÁGUIA DE FOGO 
1994 (48) - uma messão no futuro 

River Raid (48) - percorra de avião um no pengoso 
Blade Alley (48) - desafio espacial em 3D 

Maziacs (48) - cace um tesouro no labinnto 

30 Amt Attack (48) - salve a moça das formigas 
Androids (48) - aventura no labento 

Chese Cake (48) - salve 05 humanos com sus nave 
Scubadive (48) - recolha as péroias do mar 
Penetrator (48) - destrua 0 reator 

Jetset Willy (48) - recolha os objetos 

Full Throttle (48) - comida de motos, em 30 
Chequered Flag (48) mantenha a POLE POSITION 
Worse at Sea (48) - mantenha o namo flutuando 
Trashman (48) - ajude a manter cidade impa 
Aquapiane (45) - uma lancha num mar de pengos 
Jump Haliager (45) - pule os obstáculos 

Night Gunner (48) páote um bombardeso em 30 
Ghostbusters (48) - caça sos fantasmas 

Blind Alley (48) - baseado no filme TRON 

Beach Head (48) - invada uma pras inimiga protegida 
Chuchie Eggs (45) - recolha os ovos em várias fases 
Atic Atac 30 (48) - percorra um castelo assombrado 
Mugsy (48) - controle q sindicato do crme 

Sabre Wulf (48) - aventura gráfica na fioresta 
Autonomia (48) - saga de um montador de carros 
Kokotoni Wilf (45) - perigos em várias épocas 
Tirnanog (48) - aventura gráfica na dade mécia 
Kosmic Kanga (48) - ajude um canguru voador 
Pégasus (45) - destrua 0s abenigenas no tabento 
Special Delivery (48) - uma aventura com o Papa Noel 
Lazy Jones (45) - enfrente vários videogames 
Wimpy (48) - uma aventura tipo Burguerime 
Decathion 1 (48) - 5 emocronantes provas olímpicas 
Decathion 2 (48) - mais 5 provas olímpicas 


Na compra de qualquer 
produto Softline, 
receba o informativo TILT 
com a descrição de 
programas, dicas, novidades 
e informações técnicas. 









Strip Poker (48) - dispa sua mcrve! oponente 
Esquimo Eddie (48) - uma aventura na antârtica 
Kong (48) - ajude Mario a salvar à moça do gorda 
Turti Frutti (48) - incrível caça mqueis sonoro 
Pinbail (48) - sumulação de um penal 

Freez (48) - destrua 0 inimigo com os cubos de gelo 
New Poker (45) - clássico go de poker 

Horace skiing (48) - esque montanha abaum 
Hungry Horace - divertido Pac-Man 

Horace & Spiders - enfrenta as aranhas 

PSSST salve sua pianta das pragas 

Cookie - ajude o cornhero contra o ZÉ DO LIXO 
Tranz Am - pegue os troféus nos EUA 

JetPac - construa os foguetes 

Spectres um jogo diferente tipo come-come 
Escape - sa do labinnto sem ser morto 

Lab 30 - será que você sai dessa? 

Ground Attack mg tipo Penetrator 

Meteors - destrua os metesros e naves 
Combate Zone - batalha de tanques em 30 
Astro Blaster . defenda o império do memgo 
Arcadia - sobreviva na travessia tata! 

Space Intruder - jogo tipo Invaders 

Planetolds - aventura espacial com combate 
Seiddab Attack - combata os invasores da cutade 
High Moon - dusio no velho oeste 

Invasion Force - destrua a nave mée 

Sir Lancelot - pegue os objetos no castelo 
Motar Maul - defenda seus dentes das céries 
Galaxians - destrua as abelhas assassnas 
Monster in Heil - cugado com q termo 

Space Raiders tipo masores do espaço 





UTILITÁRIOS/APLICATIVOS - SPECTRUM/ 
TK 90X 


— C2$ 80,00 — 


VU 30 -utitáro gráfico Telas em 30 
VU Calc - prara de calculos 

VU File arquno de dados para uso geral 
Ultra Vivlet super dsassembier 
MCODER Il compuador BASIC 


— C3$ 100,00 — 


SORRCALC - plaruha de cálculos com GRÁFICOS 
PASCAL 1.6 - compdador 

SpecFORTH - compilador 

ASSEMBLER - super editor assembler 

Tasword Il - processador de texto com 64 colunas 
The KEY - super copsdor de programas 

Paint Plus - editor de teias gráficas 

Screen Machine - utiltário gráfico 


JOGOS - HOT BITIEXPERT (MSX) 
— CS 80,00 — 


Fgm Simulator sumuador de vôo num Boeing 737 
Polar Star guerra cósmca em POLAR IV, 3D 
DONPAN - divertido jogo de ação 

Jumping Rabbit - ajude à cosiho a subi q edifico 
Project À - jogo com incriveis lutas de Kung Fu 
Haunted House - escale o prédio assombrado 

Trick Boy - fantástico jogo de fimperama 

Cosmo Traveler - defenda-se dos mimgos espaciais 
30 BOMBERMAN - ghmune o monstro 

Dizy Ball. destrua as pedras rolantes 

Thezeus - save a prncesa presa no labemto 

Pitfall H - aventuras nas cavernas perdidas 

Hiper Sports 1-3 - sensacionas competições 

Hiper Sports 2 - mais 3 competições 

HERO - salve 05 mneiros presos na mina 

Moon Patrol - patrune z superficie da Lua 

Le Mans - fantástica comda de carros 

Been Raider - detenda-se do ataque avengena 
River Raid - percorra um no sem ser destruido 
Super Cobra - defenda seu heicóptero do mumgo 
Keystone Kapers - prenda o iadrão 

Frogger - ajude o sapo a salvar a saprha 

Pyramid - desvende 05 mistérios da prámide 

Dog Fighter - derrube os aviões mimgos 

Shadow of the Bear - emocionante aventura gráfica 
Binary Land - ajude Os namorados 3 se encontrarem 
Norseman - defenda seu resno contra os dragões 
Hunch Back - sale 3 princesa aprisonada na torre 
Hot Shoe - deshgue o reator nuclear 

Decation - várias incriveis provas olimpicas 
Amtartic Adventure - explore 3 Antártica 

Spook e Ladders - escape dos terrivess monstros 


Desejo receber os seguintes programas pelos quais estou enviando um cheque nominat à ATI Editora Ltda , Av Pres. Wilson, 165 - Grupo 1210 - Centro, CEP 20030 - Rio de Janeiro - RJ. Despesas de correio já incluidas. 


Computador ( ) CP-300/CP-500 ( 
NOME 
END, 


+ SEE 


APPLE || ( ) SPECTRUMITK 90X 


Com:. K RAM 


ITEM(s) 


Desejo os programas em ( JFITA( JDISKETTE 


PREÇO Cr$ 





TOTAL Cr$ 


Softline - Av, Graça Aranha, 145, Sij. 01 - Centro - Rio de Janeiro - RJ - CEP 20030 - Tel.: (021) 262.6968 





CBBS: a informação 
via computador 














Que tal transformar seu equipamento num dinâmico 
quadro de avisos, onde você possa trocar informações 
com outros usuários e até mesmo anunciar a venda ou 

compra de objetos? Conheça agora os CBBS e descubra 
essas e outras mil possibilidades do seu micro. 


m micro isolado hoje em dia 
não tem muito sentido”. Esta 
afirmação é do operador 
Rizieri Maglio, do CBBS 
Sampa, mas, com certeza, ela também 
estava na mente de Randy Sues e Ward 
Christensen, dois americanos que, em 
1978, criaram em Chicago o primeiro 
CBBS ou (Computer Bulletin Board 
System (sistema de quadro de avisos 
por computador). 

A idéia surgiu da necessidade de ofe- 
recer um ponto central de chamadas 
para os membros de um clube de mi- 
cros, através do qual eles pudessem 
trocar informações, como num diná- 
mico quadro de avisos. 

Na época, o preço dos microcompu- 
tadores no mercado americano já atraía 
um grande número de usuários, só que 
nem sempre o entusiasmado iniciante 
sabia o que fazer com seu micro depois 
da compra. Sendo assim, ligar-se a outros 
usuários para troca de informações e 
dicas técnicas tornou-se uma ótima 
opção, o que levou os CBBS a uma 
grande popularização. Pouco depois do 
CBBS de Sues e Christensen surgiu um 
Apple BBS, que foi seguido por outros 
como Forum-80, Access-80 e The 
Greene Machine. 


CONHECENDO OS CBBS 
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Através de um CBBS pode-se enviar 
mensagens de várias naturezas para 
usuários; conversar on line com o ope- 
rador, utilizando o sistema para diri- 
mir dúvidas; compartilhar experiências; 
vender ou trocar equipamentos e até 
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anunciar serviços, acabando por fazer 
novos amigos em meio a essas ativida- 
des. O mais interessante no CBBS é 
que, como em qualquer quadro de avi- 
sos comum, o usuário pode deixar 
(ou receber) mensagens para seus ami- 
gos, sem que haja a necessidade de 
contactá-los naquele instante. 

O usuário que deseja conectar-se 
a um BBS precisa ter à sua disposição 
um microcomputador; uma interface 
RS-232C; um modem e uma linha tele- 
fônica. Com isso, sem sair de casa, ele 
poderá ter acesso a informações que 
vão desde dicas técnicas até a programa- 
ção dos cinemas para o fim-de-semana. 

Outro detalhe importante é que a 
grande maioria dos CBBS é gratuita, 
o usuário só paga pela ligação telefôni- 
ca. 
Embora pareça complicado e, para 
muitos, algo fora da realidade, criar 
um CBBS também não é tão difícil 
assim. Para quem pretende ser um 
Sysop (operador de sistema), o equipa- 
mento não é muito diferente: um micro 
(com no mínimo 32 Kb de RAM); uma 
interface serial RS$-232C; um modem 
(de preferência com resposta automáti- 
ca); memória magnética (cassete ou dis- 
quete) e o software. 

Certamente, aqui no Brasil o maior 
problema está na aquisição do progra- 
ma, pois ele não está a venda no merca- 
do e nem todos têm condições de de- 
senvolvê-lo. Em contrapartida, aqueles 
que os possuem (desenvolvidos ou com- 
prados no exterior) não os liberam para 
cópia. Já nos Estados Unidos, é grande 
a disponibilidade desses programas, que 


tanto podem ser comprados em lojas 
por preços acessíveis ou obtidos em 
bibliotecas de software. 

Com a proliferação dos programas 
comerciais para CBBS nos EUA, muitas 
pessoas que utilizavam o micro apenas 
durante o dia ou horário comercial 
passaram a deixar seu equipamento li- 
gado a um modem de resposta automá- 
tica durante o tempo ocioso. Hoje são 
mais de dois mil sistemas espalhados por 
todo o território norte-americano e 
cerca de 100 entre Canadá, Inglaterra, 
Alemanha e outros países, inclusive O 
Brasil. 

Devido ao grande número de CBBS 
nos EUA, às vezes chegando à casa das 
centenas num mesmo estado, houve uma 
divisão natural: a especialização. É mo- 
tivo de satisfação para um operador ve- 
rificar que os acessos ao seu sistema são 
em grande quantidade. Como passaram 
a existir muitos serviços disponíveis, 
cada operador tratou de tomar o seu 
CBBS mais atraente, oferecendo serviços 
para áreas específicas. Atualmente tem- 
se sistemas específicos por linhas de 
equipamento (TRS-80, Apple, IBM, 
etc.), linguagens e para grupos de 
interesses comuns: Astronomia; Medici- 
na; Jogos de Aventura; Fotografia, Fila- 
telia, Música, Sexo, Homossexualismo, 
Humor, Bolsa de Valores etc. 

Existem até CBBS nos EUA com 
aplicações bastante peculiares como os 
especializados em corrida de cavalos e 
até em namoro (tipo “Namoro na TV”). 
No estado de São Francisco, por exem- 
plo, a própria polícia tem um CBBS 
para quem quiser dar pistas de fugitivos 
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ou criminosos sem se identificar. 

No caso particular dos CBBS para li- 
nhas Reese de equipamentos, nada 
impede que um Apple entre em um sis- 
tema para TRS-80. O que acontece, 
neste caso, é que o usuário de Apple não 
vai achar muita graça em encontrar a 
maioria das mensagens destinadas aos 
usuários de TRS-80. 


OS BBS BRASILEIROS 


No Brasil, o primeiro CBBS a apare- 
cer foi o do Pinto, no Rio de Janeiro, 
em abril de 1983. Paulo Sérgio Pinto 
voltou entusiasmado de uma viagem aos 
Estados Unidos, onde fez contato com 
vários CBBS. Logo que chegou, conti- 
nuou acessando os sistemas americanos, 
mas, diante dos gastos com a conta 
telefônica, achou que seria melhor 
abrir seu próprio sistema por aqui. 

Pouco depois do CBBS do Pinto, 
mais precisamente em junho de 83, 
Henrique Pechman colocou no ar o 
Forum-80 do Rio de Janeiro, que des- 
de então funciona sem interrupção, 
contando atualmente com mais de 
400 usuários cadastrados. 

Através da divulgação e ajuda dos 
operadores, foram surgindo outros sis- 
temas e agora temos cinco atuando no 
país: Forum-80 e LogiCbbs (no Rio); 
Sampa e ABBS Atari (em São Paulo); 
e o CBBS do Otto (em Curitiba). Foram 
extintos os CBBS do Amim e do Prado, 
e o CBBS do Pinto está temporariamen- 
te desativado. 

O sistema mais recente é o LogiCbbs, 
criado por Jonas Roter, um garoto de 
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Henrique Pechman operando o Forum -80. 


apenas 15 anos, no fim do ano passado. 
Segundo Jonas, seu início não foi muito 
diferente dos outros: “Comecei tudo 
por curtição. Acho muito interessante 
poder trocar mensagens com pessoas 
por todo o país.” Embora encare seu 
CBBS como diversão, Jonas trata de sua 
manutenção com muita seriedade e a- 
crescenta que pretende melhorá-lo 
“sempre que for possível”. 

Além dos serviços oferecidos normal- 
mente pelos CBBS, alguns apresentam 
inovações, de acordo com a criativida- 
de do operador. No Sampa, por exem- 
plo, os operadores Rizieri Maglio e 
Rubens Paulo Silva estão sempre progra- 
mando novas opções. Isto porque o 
software foi desenvolvido por eles 
mesmos, tornando-se possível modificá- 
lo. No momento, eles estão oferecendo, 
entre outros, serviço despertador; dicas 


O contato com CBBS 


Se você pretende entrar em contato com 
CBBS de outros países e não se importa em 
gastar alguns cruzados [Cz8 35 por 
minuto, para os EUA, e Cz$ 42, para a 
Europa) em ligações internacionais, a pri- 
meira providência é obter os números desses 
CBBS. As melhores fontes são alguns 
CBBS nacionais (Forum-80, por exemplo), 
que listam os números dos sistemas do exte- 
rior, além dos do Brasil, é claro. Você tam- 
bém pode fazer uma assinatura de publica- 
ções específicas como “On-line Computer 
Telephone Directory Poster”, criada e publi- 
cada por Jim Cambrom e considerada a 
mais importante do setor. Para assinatura 
anual ao preço de US$ 19.95, escreva para: 


J. A. Cambrom Company, Inc. 
P. O. Box 10005 
Kansas City, MO 64711 


Abaixo, damos a lista de alguns CBBS 
que você poderá acessar. Lembramos que 
um problema comum com os BBS é que eles 
aparecem e desaparecem com certa fre- 
quência. Portanto, nem sempre é possível 
saber se determinado sistema está operando, 
temporariamente fora de operação, fora do 
seu horário ou simplesmente desativado. 


e Estados Unidos 
CBBS & 1, Chicago, llinois, (312) 545-3086 
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Gonnection-80 &* , Centereach, New York, 
(516) 588-5836 ? 

Berkley Conference Tree, (415) 538-3580 
PMS People's Message System, (714) 449-5689 
S-E-X! Kinky Kumputer, (415) 647-9524 
Astronomy, (212) 787-5520 

Adventure Board, (201) 376-8055 
Forum-80 % 1, (816) 861-7040 

NASA, (301) 344-9156 

IBM /PC, (703) 560-0979 


e Europa 
CBBS North-East, Inglaterra, (44) 02707- 
43555 


Mailbox-80, Inglaterra, (44) 051-428-8924 
Forum-80, Inglaterra, (44) 0908-566660 
Forum-80, Holanda, (21) 01-313-512533 
ABC-80, Suiça, (046) 010-468-190522 


Para quem pretende acessar os BBS lo- 
cais, aí vão os telefones: 
CBBS do Otto - (041) 262-4743 
LogiChbbs - (021) 259-4413 
Forum-80 - (021) 287-8844 
Sampa - (011) 853-6273 
ABBS Atari - (011) 545-7557 


Em MICRO SISTEMAS nº 43 foi publi- 
cado o artigo CBBS, um quadro de avisos 
comunitário, de Ricardo Muricy, onde você 


pode obter outras informações sobre os 


BBS. 





de teatro, cinema e shows; tarifas tele- 
fônicas, concursos temporários (veja 
Seção Bits “Concurso de Telas Gráfi- 
cas”) e uma opção gate, que permite 
ao usuário acessar outros CBBS paulis- 
tas através do próprio Sampa. 

Durante as festas de fim de ano, 
Rizieri e Rubens criaram um cartão 
de natal musicado e, pela ocasião do 
aniversário de São Paulo, uma mensa- 
gem acompanhada da música Sampa, 
de Caetano Veloso. Rizieri anuncia 
que também está desenvolvendo um 
software de comunicação entre micros. 
Só que, ao invés de colocá-lo à disposi- 
ção do usuário no banco de software, 
ele quer comercializá-lo: “Pretendo 
cobrar um preço bem baixo por esse 
software, apenas para cobrir gastos com 
o sistema”. 

“Além das novidades no software, 
o Sampa está funcionando com um 
micro CP/M profissional, com capacida- 
de de armazenamento de 2 Mb e opção 
para mais dois”. Rizieri também preten- 
de colocar em funcionamento, ainda 
no més de abril, o Sistema Sampa Sul, 
que oferecerá as mesmas opções do sis- 
tema paulista. 

Apesar da diversidade de serviços 
oferecida pelos CBBS nacionais, ainda 
não chegamos ao ponto de ter BBS 
específicos, devido principalmente ao li- 
mitado número de usuários e de CBBS 
em funcionamento, o que ainda não le- 
vou a uma acirrada concorrência que 
justifique um maior investimento em 
especialização. 

Na opinião de Antônio Carlos Pra- 
do, “a hora em que as aplicações comer- 
ciais começarem a se ampliar (com mi- 
cros e modems a preços mais baixos) 
com sistemas nas universidades para os 
alunos se familiarizarem, poderemos 
chegar a um número talvez até seme- 
lhante no dos EUA, hoje”. 

Certamente, os CBBS específicos se- 
riam muito úteis a profissionais de á- 
reas como médica, de comunicação, 
de estatístca, etc. Mas isso exigiria 
uma manutenção rigorosa de dados e, 
no momento, os CBBS particulares 
não têm condições de fazê-lo. Talvez, 
a melhor solução fosse a criação de BBS 
por instituições ligadas a cada atividade. 


OS OPERADORES 


O entusiasmo e, até porque não di- 
zer, a paixão são marcas registradas do 
operador. Cada um pode ter motivo 
particular, mas nenhum deles esconde 
seu fascínio pela teleinformática: “É 
por paixão que me dedico a isso. É uma 
coisa muito boa profissionalmente falan- 
do, pois sou programador; isso sem 
contar a quantidade de amigos que a 
gente faz... os horizontes ficam maio- 
res”, diz Rizieri. 

Para Marco Antônio Romano, opera- 
dor do ABBS Atari, também de São 
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Telas do LogiCbbs. 


Paulo, o trabalho é visto com muita 
seriedade: “A partir do momento em 
que a gente se propõe a abrir um CBBS 
é porque pretende ajudar os outros. 
Meu sistema vai ser sempre gratuito e 
sempre que puder melhorá-lo, vou fazê- 
lo” 


Na verdade, todo esse entusiasmo 
é mais que necessário porque para ser 





Se você pretende criar seu próprio 
CBBS, vale prestar atenção em algumas 
dicas de quem tem experiência no assunto. 
Elas foram escritas por Henrique Pechman, 
um dos operadores do Forum -80 do Rio de 
Janeiro. 

A lista abaixo servirá de base para seu 
planejamento: 

1. Cadastro de usuários — permite saber 
quem chamou (e quando) o seu CBBS. Al- 
guns dados importantes: nome, endereço 
completo, tipo de computador, data da últi- 
ma chamada, número da mensagem lida, 
nível de acesso e senha de acesso. 

2. Caixas Postais — permite enviar e receber 
mensagens entre usuários. Talvez a função 
mais importante de um CBBS. As mensagens 
podem ser classificadas como genéricas 
(podendo ser lidas por todos); comerciais 
(compra, venda etc.); pessoais (só podem 
ser lidas pelo destinatário); Sysop (mensa- 
gens para operador do sistema) ou restritas 
(lidas apenas por um determinado grupo). 

3 Boletins do sistema — permite que o 
operador do sistema coloque mensagens ou 
avisos para todos os usuários do CBBS. 

4. Upload /Download — permite receber e 
enviar programas. Existem vários protoco- 
tos de comunicação em uso: Prompt, X- 
ON /X-OFF, XModem etc. 

5. Chamar o operador — permite uma co- 
municação on-line com o Sysop. 

6. Jogos — permite acesso a jogos on-line 
com o CBBS. 

Os programas podem ser escritos em 
qualquer linguagem de alto nível (BASIC, 
FORTRAN, Pascal) com algumas sub- 
rotinas em linguagem de máquina. Você 
pode optar por um único programa residen- 
te o tempo todo na memória, apresentando 
rápida resposta a qualquer opção e também 
minimizando o espaço ocupado nos discos. 
Por outro lado, no caso da abordagem de 
um sistema modular, podem-se ter vários 
subprogramas que são carregados para a 
memória de acordo com a opção do usuá- 
rio. Esta técnica de programação facilita a 
manutenção e criação de novos módulos. 
Como desvantagem, podemos citar o gasto 
de espaço em disco; o tempo perdido para 








um Sysop não bastam equipamentos: 
antes de mais nada é preciso tempo e 
força de vontade para fazer a manuten- 
ção do sistema. 

Atualmente, uma grande dificuldade 
dos operadores brasileiros é que os 
usuários ainda não se acostumaram a 
trocar mensagens entre si e exigem a 
presença constante do Sysop. Este pro- 


Dicas de um Sysop 


carregar cada módulo; e a passagem de 
variáveis de um módulo para outro. 


Mais um aspecto a ser considerado é o 
uso de sub-rotinas em linguagem de máqui- 
na. Estas rotinas são para receber e transmi- 
tir através da porta serial; conversão de mi- 
núscula /maiúscula; formatação do texto de 
acordo com o tamanho da tela do usuário; 
conversão de códigos de controle de vídeo; 
controle de fluxo de dados; controle de per- 
da de portadora etc. 

Você deve ainda optar pela forma de 
organização do seu CBBS. Os métodos 
mais comuns são menus e páginas. Os CBBS 
organizados em menus permitem que o 
usuário escolha a opção desejada através 
da letra correspondente. Os novos usuários 
recebem menus mais detalhados do que os 
mais experientes. O método de páginas pres- 
supõe o CBBS dividido em blocos separados 
ou páginas de dados. Este método é muito 
eficiente para usuários já experimentados 
porque permite um rápido acesso à função 
desejada. 

De qualquer forma, o mais importante a 
ser levado em conta no planejamento é 
manter o sistema conversacional. O novo 
usuário deve ser bem orientado sem que, 
no entanto, o sistema fique repetindo in- 
formações desnecessárias para os mais 
antigos. Uma boa técnica é solicitar aos 
iniciantes que teclem <RETURN>ou <EN- 
TER > toda a vez que tiverem dificuldades. 
Desta forma, eles podem receber opções e 
informações detalhadas. 


CONSIDERAÇÕES TÉCNICAS 


Se você possui um sistema de disco, 
pode gravar dados e grandes quantidades 
de informação em arquivos. Caso contrário, 
deverá utilizar outros métodos para manter 
os dados do programa. Num sistema com 
discos, você deve decidir quais serão os 
arquivos, que informações serão gravadas e 
a forma de acesso. Um bom manuseio de 
arquivos randômicos permite que se ofere- 
cam melhores opções em cada aplicação 
espec fica. 


blema faz com que ele se sinta muito pre- 
so, podendo levar ao fechamento do Sis- 
tema, como aconteceu com o CBBS 
do Prado: “Parei porque me consumia 
muito tempo. As pessoas queriam con- 
versar comigo e isso exigia minha pre- 
sença. Tinha de acordar mais cedo para 
responder as perguntas. . . Eu gostava de 
tudo automático, mas o pessoal não 
achava graça, queria mesmo era conver- 
sar comigo”, diz Prado, ex-operador de 
um sistema paulista. 

Também é comum alguns CBBS es- 
tarem temporariamente fora do ar. É 
bom lembrar que nem sempre o Sysop 
pode dedicar seu tempo integral ao sis- 
tema e que, muitas vezes, precisa de 
seu equipamento para atividades profis- 
sionais. Hoje em dia, só o Sampa e o Fo- 
rum-80, no Rio, funcionam 24 horas por 
dia. 





Reportagem de Lia Bergman e Mônica Alonso 
Texto final: Mônica Alonso 


Sempre que dois modems são conectados 
através de linha telefônica, o sinal da porta- 
dora (CD) pode ser escutado na linha como 
um tom agudo. Este sinal permanece duran- 
te todo o tempo de conexão e permite a 
verificação de uma queda de linha (intencio- 
nal ou acidental). A porta RS 232-C ofere- 
ce uma série de outos sinais que possibilitam 
detectar todas as situações possíveis. Tudo o 
que você precisa fazer é checar os bits 
correspondentes, de acordo com os manuais 
de seu computador e modem. 


Um dos maiores problemas ao colocar 
um CBBS em funcionamento é manter um 
controle completo do sistema. Você deve 
prever rotinas de recuperação de erros de 
forma a manter o funcionamento em qual- 
quer caso. 

Chamamos de erros de telecomunicações 
aqueles causados diretamente da comunica- 
ção através de linhas telefônicas. Esses erros 
são detectados pela interface RS 232-C 
através de sinais específicos. A convenção 
de ecoar os caracteres recebidos oferece ao 
usuário um feedback constante do que é 
transmitido, permitindo a correção imedia- 
ta. 

Erros operacionais ocorrem quando o 
seu computador acusa algum problema que 
interrompa a execução do programa. Você 
deve filtrar todas as informações recebidas 
para evitar o processamento de caracteres 
indesejáveis. 

Erros de programação também podem 
ocorrer se o programa original não foi su- 
ficientemente testado em todas as suas 
possibilidades. Pode ainda ocorrer uma falha 
na inicialização do sistema. Você deve preca- 
ver-se contra os erros do usuário e também 
contra seus próprios. 


Na eventual falta de energia elétrica, o 
sistema deve ser capaz de auto- inicializar-se 
quando esta é restabelecida, ficando nova- 
mente pronto para receber chamadas. Im- 
plemente todas as rotinas de recuperação 
possíveis. Não hesite em tentar situações 
singulares. A experiência e o bom-senso vão 
produzir rotinas personalizadas que justi- 
ficarão o esforço gasto no desenvolvimento. 
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Agora você poderá colocar seu sistema 
de mensagens eletrônicas (CBBS) no ar 
com o primeiro gerenciador totalmente 
desenvolvido no Brasil. 


Do empresário ao hobista, do 
telemarketing ao CBBS privado, o unico 
limite será a sua imaginação. 


Com módulos totalmente personalizados, 
o DELTA dará a certeza do seu sistema ser 
O Unico. 


ÕÓ DELTA é compativel com qualquer 
máquina CP/M (*) e pode ser comparado 
com qualquer gerenciador importado. 


As principais caracteristicas sao: 


— Cadastramento de usuários 
— MSGS pessoais (invioláveis) 
— MSGS publicas 

— Anúncios classificados 

— Notícias 

— Protocolo xmodem 

— Tratamento de telas 

— Reaproveitamento de registros 
— Editor de alto nível 

— Manutenção local ou remota 
— Personalização do sistema 


« & tudo aquilo que puder imaginar e o 
hardware permitir. 





Informações no Sistema Sampa, 24 horas 
por dia, 7 dias por semana, em 300 ou 
1200/75 bauds. Fone (011) 853-6273. 

(*) Em breve, também em MS/PC-DOS 


(*) CP/M é marca registrada da Digital Research 








Desenvolvido num TK82C, este programa facilita e agiliza o controle 
e armazenamento de duplicatas e outros tipos de fichas cadastrais. 








Cadastro 


Gilson Roberto Viana 


ste programa foi desenvolvido 

num TK82C (linha ZX81), e 

tem como finalidade facilitar e 

agilizar o armazenamento de fi- 
chas cadastrais através de comandos 
diretos, acionados pelo teclado. 

Criado totalmente em Assembler, 
tem, portanto, uma alta velocidade de 
processamento, com acelerados proces- 
sos de inserção, deletação, leitura (entre 
outros), das fichas na memória, tornan- 
do menos cansativa a tarefa de se digitar 
grandes quantidades de dados (tediosa 
em programas BASIC). 

São dois os métodos de armazena- 
mento utilizados neste programa: 
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Os melhores especialistas, programas, 
>» equipamentos, formulários, manutenção, 
* cursos, livraria, videoclube. Tudo para Informática, 
com segurança e garantia, num só lugar. 


4 + 
dm e + 
4 . + 
.—- .—.— + 
dd ++ 
.. + 
.+ 
.+ 7 
+ 





1º) Simples: insere caracteres simples 
(letras, sinais gráficos, etc.); 

2º) Especial: insere palavras-chaves, 
ou seja, copia na memória palavras que, 
por terem uso frequente, foram preser- 
vadas numa linha do programa. 

Ao inserir as fichas, o programa ex- 
pande a região das variáveis, no exato 
tamanho do texto digitado; ao contrário 
das versões BASIC, que estabelecem um 
tamanho padrão para as fichas, reduzin- 
do a quantidade de dados a serem inse- 
ridos. 

Quando a memória estiver repleta de 
fichas, a tela será totalmente preenchi- 
da por asteriscos, indicando que não po- 








derá ser inserida mais nenhuma ficha. 

Seguindo o princípio de que o pro- 
grama deve adaptar-se ao usuário e não 
vice-versa, é que criei um comando ex- 
tra, para redefinição do painel, permi- 
tindo que se possa mudá-lo de acordo 
com os propósitos do usuário. Original- 
mente, o painel foi definido para aten- 
der às necessidades de pessoas que fa- 
zem controle de duplicatas, conforme 
mostra a figura 1. Ás variações possí- 
veis ficam a cargo dos usuários. 


FUNCIONAMENTO 


Surgirá, inicialmente, o nome do pro- 
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grama em letras garrafais, acompanhado 
de sua origem (Vianasoft com um ar 
profissional), que desaparecerá alguns 
segundos após, para dar lugar ao painel. 
Na parte inferior da tela estará o menu, 
aguardando um comando. Se a tecla 
acionada for referente a algum coman- 
do, ele será executado, caso contrário, 
o menu será desativado. 


Pressione N/L para fazer a leitura do 
próximo cliente, o qual será determina- 
do pelo comando L (ver comando L). 
Chegando ao fim do fichário, será im- 
pressa a mensagem FIM, e, automatica- 
mente, o endereço de leitura volta ao 
início. 


PALAVRAS-CHAVES 


A finalidade das palavras-chaves é 
poupar memória e tempo de digitação, 
aproveitando-se da repetitividade de cer- 
tas palavras (ruas, cidades, endereços em 
geral, prefixos telefônicos etc.). 

O uso de palavras-chaves é feito pelo 
comando 5 - Insere. Através do controle 
SHIFT + 9 é colocado o cursor (* no 
modo GRAPHICS), indicando que a 
operação foi iniciada. Se você digitar o 
caráter representativo da palavra-chave 
desejada, ela será impressa na tela. No 
caso de ser digitada uma palavra inexis- 
tente, o cursor volta ao estado normal 
de impressão. 


DEFINIÇÃO DE PALAVRAS-CHAVES 


Antes de digitar as palavras-chaves, 
faça uma tabela seguindo o exemplo da 
figura 2. 

Na segunda coluna, coloque a lista 
das palavras que serão definidas como 
palavras- chaves (máximo 53). 

Na primeira coluna, serão colocados 
os caracteres representativos. Com aux í- 
lio do manual de seu micro, preencha a 
primeira coluna com os caracteres sim- 
ples, iniciando em aspas ( “* ) e termi- 
nando quando todas as palavras estive- 
rem representadas (a sequência de colo- 
cação destes caracteres deve ser igual à 
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do manual). Desta maneira, torna-se fá- 
cil identificar o caráter que representa 
uma determinada palavra-chave. 


DIGITANDO AS PALAVRAS-CHAVES 


As palavras-chaves devem ser digita- 
das na linha: 

2 REM COPY 

Edite a linha anterior do programa 
em BASIC com o comando SHIFT +1, 
colocando o cursor entre os comandos 
REM e COPY e procedendo à digitação. 

Digite as palavras-chaves na mesma 
ordem em que você as colocou em sua 
tabela, tomando o cuidado de digitar 
a primeira letra de cada palavra-chave no 
modo GRAPHICS.  Descreveremos, a 
seguir, Os principais comandos: 

Comando 1=COPY — Copia na 
impressora o que estiver na tela. 

Comando 2 =GRAVA — Assim que 
for acionado, grava uma cópia do pro- 
grama em fita cassete; portanto, prepare 
o gravador antes de acioná-lo. 


ea == 
EEE 










ogião . 





Figura 2 — As letras mimisculas devem ser in- 


seridas em modo GRAPHICS. 


Comando 3 = PAINEL — Usado para 
modificar o painel, de acordo com as ne- 
cessidades do usuário. Inicialmente, o 
primeiro caráter do item “Cliente” será 
mudado para um caráter simples, indi- 
cando onde será colocado o caráter digi- 
tado. Se for pressionada a tecla N/L (ou 
a modificação do item estiver comple- 
ta), a operação muda para o próximo 
item, voltando ao programa normal, se 
for o último. Cuidado para não errar, 
pois não há controle para correção, e 
você teria de chamar o comando, nova- 
mente, para corrigir. 


Comando 4 = LEITURA — Oferece 
duas opções: 

13) Atual: Coloca o cursor na linha 
superior do quadro (à direita) e aguarda 
a digitação da data desejada. Cuidado, 
pois se você errar não poderá corrigir, 
sendo ainda necessário executar o co- 
mando novamente. Este comando esta- 
belece a leitura, apenas, das fichas que 
tenham duplicatas com data de venci- 
mento igual à digitada; 

22) Passado: Idêntica à primeira op- 
ção, com a diferença que estabelece a 


leitura das fichas com datas iguais ou 
menores à digitada (mostra as duplica- 
tas vencidas). 

OBS.: Se for pressionada a tecla N/L 
fica estabelecida a leitura de todos os 
clientes, indiscriminadamente. 

Comando 5 = INSERE — Oferece 
duas opções: 

13) Cliente: Usada para inserir clien- 


tes. Inicialmente, o cursor é colocado na 


primeira linha da tela (junto ao item cli- 
ente), aguardando a entrada de dados. 


Pode ser digitado qualquer caráter sim- 


ples ou palavras-chaves. Se for pressiona- 


da a tecla N/L (ou se o item estiver com- 


pleto), o cursor passa para o próximo 
item. 

A ficha estará completa depois que o 
cabeçalho estiver totalmente preenchi- 
do, pressione, então, SHIFT + N/L para 
finalizar. 

24) Duplicata: Usada para inserir du- 

licatas, que, por sua vez, estarão vincu- 
adas ao cliente que estiver impresso na 
tela (um cliente pode ter várias duplica- 
tas). A operação é similar à primeira op- 
ção, com a diferença que inicia na quin- 
ta linha (item duplicata). 

Este comando possui os seguintes 
controles: 

e SHIFT + 0: Deleta (apaga) o último 
caráter ou palavra-chave digitada; fazen- 
do o cursor voltar atrás. Usado para cor- » 
reções. ms 
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SOFTWARE PARA CP 400 E COMPATÍVEIS 


APLICATIVOS: Processador de Textos 

PPTEXTO c/ acentuação em português, Plani- 

lhas Eletrônicas, Bancos de Dados, Pacotes In- 

tegrados. 

UTILITARIOS: Editor/Assembler, Expansor 

ar Tela, Supertec, Compiladores, Copiadores, 
tc. 

GRAFICOS: DUMP P-500, Esquemas Eletrôni- 

cos, Bjork Blocks, Comerciais, Graphicom e 

outros. 

LINGUAGENS: LOGO em português, PILOT 

para professores e uso didático, PASCAL, 

CBasic. 

JOGOS: Muitos títulos para mencionar aqui! 

Nossos catálogos mostram as telas dos jogos. 

Temos jogos exclusivos. Escolha melhor na 

Peek & Poke! 


SOFTWARE PARA CP 500 / CP 300 


— Processador de textos PPTEXT 500 DISCO 
c/ acentuação. 

— Planilha Eletrônica CALC-300. Unica em Z- 
80 para versão K-7. 

— Utilitários copiadores para fita e disco. 

— Editor/ Assembler, monitor MACMON e tu- 
tor de linguagem de máquina. Em fita ou disco. 
Aprenda Z-B0! 

— Compilador ZBasic. Produz código objeto 
com rapidez. 


SOFTWARE PARA LINHA MSX 


Revendemos cartuchos e fitas c/ os melhores 
preços. Desenvolvemos títulos próprios. Entre 
em contato. 


A PEEK & POKE demonstra, garante e dá su- 
porte permanente a seus programas. Venha 
conhecê-los ou solicite catálogo completo para 
o seu equipamento. 





PEEK & POKE Microcomputação e Comércio Ltda 
Av. Brig. Faria Lima, 1664 - Conj. 1102 
01452 São Paulo SP - Fone: (0111813-3277 
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e SHIFT + 9: Solicita palavra-chave. 
Inicialmente, muda o cursor para de- 
notar palavra-chave (* no modo GRA- 
PHICS), aguardando que seja pressiona- 
do o caráter representativo da palavra- 
chave desejada. 

e N/L:; Muda o cursor para o próxi- 
mo item. 

e SHIFT + N/L: Finaliza a ficha se o 
cabeçalho estiver preenchido (o cursor 
deve estar dentro do quadro), caso con- 
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trário, tem o mesmo efeito de N/L. 

OBS.: Se não for feita uma opção, e 
a tecla N/L for pressionada, o coman- 
do não será executado, voltando ao pro- 
grama normal. 

Comando 6 = ELIMINA — Oferece 
duas opções: 

14) Cliente: Deleta a ficha do cliente 
que estiver na tela, juntamente com 
todas as suas duplicatas. 


24) Duplicata: Deleta a duplicata que 
estiver impressa na tela. 

OBS.: Se não for feita uma opção, e 
a tecla N/L for pressionada, o comando 
não será executado, voltando ao progra- 
ma normal. 


COMO UTILIZAR O PROGRAMA 


Insira todos os clientes com suas res- 
pectivas duplicatas, gravando, a seguir, 
o programa (fichário) em fita cassete. 

Faça uma verificação do programa 
em períodos homogêneos (semanalmen- 
te, por exemplo), inserindo novas dupli- 
catas, eliminando aquelas que forem sal- 
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dadas. Desta maneira, você terá um per- 
feito controle de duplicatas e seus negó- 
cios em dia. 


A DIGITAÇÃO DO PROGRAMA 


Digite primeiro a listagem 1. Ao digi- 
tar o bloco em Assembler (listagem 2) 
seja cuidadoso, para isso, utilize-se do 
Microbug e crie uma linha REM com 
1528 caracteres, digitando os códigos 
hexadecimais, a partir do endereço 
16514. 

Faça uma cópia em fita cassete, antes 
de executá-lo (para previnir eventuais er- 
7 de digitação, digitando SAVE “C” + 
N/L. 

Se tudo estiver correto, execute o 
programa com RUN e N/L, e... 

Bom trabalho. 


me 
[e 
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O APPLE DA DIGITUS 


A DIGITUS lança o DGTAP um 
microcomputador pessoal totalmente 
compatível em hardware e software com 
a linha APPLE Il PLUS e seus similares. 


O DGTIAP é um micro versátil, pois, além 
de lhe ser útil no trabalho, você poderá 
também usá-lo no lazer e nos estudos. 


Projetado para atender e acompanhar o 
desenvolvimento do usuário, o DGTAP 
possui estrutura para aceitar futuras 
expansões, crescendo de acordo com 
suas necessidades. 


O DGTAP tem todas as características 
básicas comuns a um micro da linha 
APPLE com a vantagem de um teclado 


Devido ao grande número de programas numérico reduzido incorporado à CPU. 


desenvolvidos para a linha APPLE, o DGT- 
AP tem ampla aplicação tanto para as 
pequenas e médias empresas como para 
os executivos e os profissionais liberais, 


Além de todas as placas disponiveis para 
expansão, você tem ainda a garantia da 
tecnologia DIGITUS. 


Conheça o DGT-AP nos endereços abaixo 


TA TITE Tri i e nos revendedores autorizados DIGITUS. 


joint LILI 1 ES 


MATRIZ: Rua Gávea, 150 - Jardim América - Fone: (031) 332.8300 - Telex: 3352 - 30430 - Belo Horizonte - MG 
RIO DE JANEIRO: Rua Barata Ribeiro, 391 si. 404 - Copacabana - Fone: (021) 257.2960 
SÃO PAULO: Rua Faxina, 47 - Centro - Fone: (011) 572.0137 





Conheça, neste artigo, os processos de gravação, carregamento e 
verificação no TK90X. Veja também como funciona a instrução MERGE. 





Gravação no TK90X 


Aldo Barduco Jr. e Pierluigi Piazzi 


TK90X possui um bom siste- 

ma de gravação e leitura com 

recursos de verificação e MER- 

GE. Existem cinco formas de 
gravação, quatro formas de carregamen- 
to, três de verificação e um MERGE 
(junção de programas). 

O TK90X, como a maioria dos mi- 
crocomputadores, armazena em fita o 
programa byte a byte. Nele, a velocida- 
de de gravação e leitura é de 1200 bauds 
(quase 8 Kb por minuto). 

Para se familiarizar com todos esses 

rocessos, digite o programa da figura | 
nttatdo do livro Explorando o TK90X, 
da Editora Aleph). Observe que nas li- 
nhas 50 e 60, a parte que executa o mo- 
vimento do lápis usa IN ao invés de 
INKEY$. Desta forma, podemos fazer 
a leitura de várias teclas simultaneamen- 
te, O que não ocorre quando se utiliza 
INKEY$. Assim, duas teclas juntas for- 
mam uma diagonal. Para deslocar o lá- 
pis, use as teclas Q, A, Z e S nas dire- 
ções indicadas. Observe a figura 2. 

Digamos que você, depois de brin- 
car um pouco com o programa lápis, 
queira desligar o computador. Para não 
ter que redigitar o programa toda vez 
que for utilizá-lo, vamos gravá-lo. 


SAVE (LOAD) 


Conecte o gravador com o cabo na 
posição MIC do computador e MIC do 
gravador. Digite SAVE “Lápis” e ligue 
o gravador no modo de gravação (REC). 
Assim, gravamos a parte do programa 
BASIC e os valores de suas variáveis. 
Mas será que gravamos certo? Para resol- 
ver este outro problema, vamos verifi- 
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Figura 1 
car a gravação usando a instrução VERI- 
FY 


Rebobine a fita até o início do pro- 
grama e conecte o gravador com o cabo 
nas posições EAR-EAR. Digite, então, 
VERIFY “Lápis” (lembre-se que o ti- 
tulo do programa deve ter, no máximo 
dez caracteres). Ligue o gravador (no 
PLAY). Após as bordas ficarem com 
barras vermelhas e azuis vibrando, deve- 





rá aparecer o nome do programa no qua- 
dro central. A seguir, elas voltarão a vi- 
brar e no fim aparecerá a mensagem O 
EXECUTADO 0:1. 

Caso não haja essa mensagem, houve 
gravação ou leitura errada. Neste caso, 
execute novamente a operação, alte- 
rando o volume e verificando se os agu- 
dos estão no máximo. Notando que não 
é um erro de carregamento, grave O pro- 
grama novamente e repita a operação. 
Se o erro ainda persistir, limpe o cabeço- 
te, troque de fita e ajuste o azimute (ve- 
ja MS nº 47, pág. 70) 

A gravação agora está boa, mas como 
carregar? Digite NEW para limpar a me- 
mória (lembre-se: NEW apaga o progra- 
ma e tudo o que estiver na memória até 
a Ramtop). Mantenha o cabo na posição 
EAR-EAR e faça LOAD “Lápis”. O mi- 
cro irá proceder como no VERIFY, po- 
rém, ao invés de comparar os dados, ele 
os carregará na RAM. Ao final da opera- 
ção, deverá aparecer O Executado 0:1. 

Para gravarmos com Auto Start, ou 
seja, gravarmos um programa que rodará 
após o carregamento a partir de uma li- 
nha pré-determinada, fazemos o SAVE 
“Nome” LINE X, onde X é a linha do 
programa que queremos que seja execu- 
tada após a carga. Então, faça SAVE 
“Lápis” LINE 10. 
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Não se esqueça: nas instruções SAVE, 
devemos conectar o cabo MIC-MIC, e 
nas instruções LOAD, EAR-EAR. Para 
verificarmos e carregarmos programas 
deste tipo, digitamos VERIFY “Lápis” 
e “LOAD “Lápis”. Não é possível digi- 
tar VERIFY “Lápis” LINE 10 e/ou 
LOAD “Lápis” LINE 10. 

Digite NEW, rebobine a fita e faça 
LOAD*”. Quando não indicarmos o 
nome do programa, o micro carregará 
O primeiro que encontrar. 


SAVE (LOAD) CODE 


Agora que você já gravou O progra- 
ma, crie um desenho que faça o melhor 
uso dele. Digamos que você queira guar- 
dá-lo para mostrar aos amigos. Há duas 
formas de fazer isso: a primeira é atra- 
vés do comando SAVE... CODE. Para 
gravar, digite BREAK e, a seguir, o co- 
mando SAVE “Lápis” CODE 16384, 
6912 (16384 é o endereço do início da 
D-FILE, ou seja, do local onde o equipa- 
mento guarda a tela, e 6912 é o número 
de bytes ocupados pela tela). 

Quando gravamos a tela em fita não 
podemos verificar diretamente se ela foi 
gravada corretamente ou não, pois ao 
jogar o nome do programa no vídeo, ele 
altera os bytes da tela, que passam a não 
conferir com os do cassete. Digite 
BREAK,CLS e faça LOAD “Lápis” 
CODE. 

Observe que não indicamos o endere- 
ço inicial e nem o número de bytes, pois 
o programa já traz consigo estas infor- 
mações. (Note como a montagem da 
tela é esquisita, tipo persiana). 

O SAVE... CODE serve para gravar- 
mos qualquer sequência de dados (by- 
tes) guardados em endereços específi- 
cos, sendo possível com o LOAD... 
CODE carregá-los em outro endereço 
(ou no mesmo). Digite UDG 2 e rede- 
fina alguns caracteres. Faça SAVE “Tes- 
te” CODE USR “a”, 168 (USR “a” é 


(30+f +49) 


DATA ash) 
f=4 TO 10 
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Grava em fita cassete, com nome N, o programa 


em BASIC. 
“ LINE X 


Grava como o anterior, mas com Auto-Start a 


partir da linha X. 


“ CODE X,B 


Grava em fita cassete a partir do endereço X 


tantos bytes quanto indicar B. 


" SCREENS 
“ DATA )X () 


- Grava a tela em fita cassete, 
Grava em fita cassete os valores da variavel X, 


desde que esta já esteja dimensionada (X pode 
ser uma variável alfanumérica ou numérica). 
Carrega na memória o programa de nome N, que 
deve estar no cassete e ser em BASIC. 

Carrega na memória o primeiro programa em BASIC 


que encontrar. 
Carrega na memoria o programa N, que deve ter 


" CODE X,B 


sido gravado na forma de bytes (Save...Code), 
a partir do endereço X tantos bytes quanto indi 


car B. 
LOAD ** CODE 


Carrega como o anterior, mas neste caso, não é 


especificado N,X e B, 


LOAD "N" SCREENS 
LOAD "“" SCREENS 
LOAD “N" DATA X () 
LOAD "" DATA X () 


Carrega na memória a tela de nome N. 

Carrega na memória a primeira tela que encontrar. 
Carrega na memória os valores da variável X. 
Carrega na memória o primeiro programa que forne 


ça os valores de X. 


VERIPY “N” 


Verifica se o programa de nome N, confere com o 


que está na memória. 


VERIFY "*“ 


Verifica se o programa contido na memória confere 


com o do cassete. 


VERIFY "N” CODE 


Verifica se os bytes gravados com nome N, conferem 


com os contidos na memoria, 


VERIFY “*" CODE 


Verifica se os bytes contidos na memória conferem 


com os do cassete. 


VERIPY "N" DATA X () 


Verifica se os valores da variável gravada com 


nome N conferem com os da memória. 


VERIFY *“" DATA X () 


MERGE '"* 
MERGE “N” 


Verifica se os valores da variável X conferem com 
os do cassete. 

- Executa o MERGE de um programa em BASIC. 

- Executa o MERGE do programa de nome N, “emendando- 


o“ com o que estã na memória. 





Figura 6 


o endereço onde começa a tabela de 
caracteres). Depois, verifique se foi gra- 
vado corretamente, desligue o computa- 
dor, digite novamente UDG 2, rebobine 
a fita e digite LOAD“ ” CODE. Agora, 
acabamos de carregar os caracteres es- 
peciais do TK90X (UDGs), já redefini- 
dos por você. 

Outro jeito de se gravar a tela é fa- 
zendo SAVE “Lápis” SCREENS (Cui- 
dado! Não há VERIFY “Lápis” SCRE- 
EN$). O SAVE. . SCREENS é simples- 
mente um resumo do SAVE... DE 
16384,6912 (que é a região da tela). 

Existe também um meio de só gra- 
varmos os valores de uma variável desde 
que esta seja definida (ex.: DIM A (10, 
10)). Para isso, usamos o SAVE “nome 
do arquivo” DATA X ( ), onde X pode 
ser uma variável numérica ou alfanumé- 
rica. Digite o programinha da figura 3. 
Terminado o programa, digite SAVE 
“AS” DATA AS( ) e depois faça VE- 
RIFY *“” DATA A$S( ). Se a gravação 
estiver correta, digite NEW e depois o 
programinha da figura 4. Ele deverá car- 
regar a variável A$ na sua memória. Se 
não houver um dimensionamento da va- 
riável (para gravação), ele acusará o erro 
2. 


MERGE 


O TK90X possui ainda o MERGE, 
uma instrução que nos permite sobre- 
por programas e funciona da seguinte 
forma: ao carregar o programa, ele vai 
inserindo nos endereços respectivos as 
novas linhas, sem alterar as demais (o 
MERGE só atua na área do programa 
BASIC). Digite as rotinas da figura 5 e, 


no fim, grave cada uma delas com SAVE 
“UM” e SAVE “DOIS”. 

Carregue o primeiro programa usan- 
do LOAD “UM” e depois, para carregar 
o segundo, digite MERGE “DOIS”. Ter- 
minando a execução desta instrução, ob- 
serve a linha 30 (veja o que prevaleceu), 
rebobine a fita para carregarmos o pri- 
meiro programa e digite MERGE “UM”. 

A linha 30 foi alterada em ambos os 
casos, porque os dois programas pos- 
suiam linhas 30 diferentes e, no MER- 
GE, a que prevaleceu é a do último pro- 
grama a ser carregado. As linhas ocupam 
sempre uma mesma posição sequencial 
na memória, onde MERGE as carrega. 

Resumindo: o SAVE salva o progra- 
ma e as variáveis em fita; LOAD carre- 
ga o programa da fita no computador; 
VERIFY compara se os bytes que fo- 
ram gravados no cassete conferem com 
os que o computador possui; e MERGE 
carrega um programa no computador, 
sobrepondo-o ao que já está na sua me- 
mória. 

Para digerir todas as informações 
dadas até aqui, seria conveniente que 
você estudasse a tabela da figura 6. 


Aldo Barduco Jr. está cursando a primeira sé- 


rie do 2º grau e é autodidata em BASIC e As- 
sembler. Possui um TK85 e um TK90X. 


Pierluigi Piazzi é formado em Quimica e Físi- 
ca pela USP. Foi professor do Curso Anglo 
Vestibulares e já editou a revista “Microhob- 
by”. É autor de vários livros e atualmente diri- 


ge a Aleph Publicações, responsável por mui- 


tos sucessos na área editorial, dada a sua ori- 
entação didática. 
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O aperfeiçoamento dos métodos de síntese de voz tem sido notável 
nos últimos tempos. Veja neste artigo o que é a voz sintetizada, 
algumas técnicas existentes e os prós e contras de cada uma delas. 








Sintese da voz 


Frederico Meloni 


o decorrer dos últimos anos, a 

tecnologia da síntese de voz 

tem se tornado uma das áreas 

de maior crescimento. Isso por- 
que as pesquisas de várias décadas estão 
agora alcançando um grau de maturida- 
de, e o rápido crescimento no campo 
LSI permite uma integração cada vez 
maior das funções digitais, reduzindo os 
custos de produção. 

Em 1978, a Texas Instrumentos foi a 
primeira a introduzir um sintetizador de 
voz acompanhado de uma ROM de alta 
densidade para seu produto de consu- 
mo, o Speak & Spell, que teve um custo 
de processamento de voz drasticamente 
reduzido. Essa tecnologia, devido ao ca- 
samento de processamento da voz e a 
tecnologia dos circuitos integrados, vai 
ocupar um lugar muito importante em 
nossa vida diária, com aplicações varian- 
do desde brinquedos até fornos que fa- 
lam. 

Este artigo visa dar um entendimento 
básico do que é a voz sintetizada. Para 
isto, iremos primeiro discutir vários mé- 
todos de produção sintética de voz e 
como cada um se relaciona com a for- 
mação da voz humana, salientando suas 
vantagens e desvantagens. 


PRODUÇÃO DA VOZ HUMANA 


A voz humana é produzida da seguin- 
te maneira: primeiro, a mensagem é pen- 
sada e transformada em sinais neurais. 
A seguir, geram-se os sons acústicos cor- 
respondentes a estes.sinais e controla-se 
o mecanismo de articulação para produ- 
zir as formas de onda. 
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REGIÃO 


ALVEOLAR 
CAVIDADE 
PALATO 


DURO paLATO 


HOLE 
CANAL 


VÉLICI 
DENTES 


EPIGLOTE ÚVULA 


LARINGE FARINGE 
(CORDAS VOCAIS) 


PULMÕES E ESTÔMAGO 


TRAQUÉTA 


Figura 1 


O propósito deste nosso artigo é, 
primeiro, discutir como a fala é produ- 
zida pelo mecanismo articulatório e, en- 
tão, debater as características das for- 
mas de ondas resultantes. Este conhe- 
cimento é especialmente útil para o 
entendimento dos modelos digitais, 
para os sinais de voz, e de como eles 
podem ser processados e comprimidos 
por várias técnicas de codificação. 

A figura 1 mostra um diagrama do 
trato vocal, apresentando a localização 
das cavidades oral e nasal, com seus vá- 
rios componentes. 

A voz humana é produzida no trato 
vocal, o qual consiste de pulmões, tra- 

uéia, laringe, cavidades oral e nasal. 
tros elementos importantes são a lín- 





gua, os dentes e os lábios. Os pulmões 
atuam primariamente como uma fonte 
de ar que passa através da traquéia, das 
cordas vocais e das cavidades oral ou na- 
sal. As cordas vocais são finas tiras de 
músculos que podem ficar esticadas, 
pela passagem do ar, ou mesmo relaxa- 
das. 

Três componentes são necessários 
para se produzir a voz humana: primei- 
ro, um fluxo de ar é necessário para se 
colocar em movimento o trato vocal; de- 
pois, um processo de fonação na laringe 
(ou cordas vocais) para modificar esse 
fluxo; e, por último, uma articulação 
precisa ocorrer para que diferentes sons 
sejam produzidos pelo fluxo de ar. O 
resultado destas ações são três classes 
distintas de sons da voz: sonoros, sur- 
dos e explosivos. Classificados como so- 
noros são os sons produzidos quando as 
cordas vocais estão tensionadas pela pas- 
sagem do fluxo de ar, gerando impulsos 
quase periódicos que vão excitar o trato 
vocal (por exemplo, /i/ na palavra sino). 
Por outro lado, se a cordas vocais estão 
relaxadas, e o movimento articulatório 
causa uma obstrução à passagem do ar, 
este se torna turbulento no ponto de 
articulação, resultando num tipo de som 
parecido com um chiado (como o /s/ da 
palavra sino). O som explosivo é criado 
quando se forma uma obstrução ao flu- 
xo de ar, gerando uma pressão que, 

uando liberada repentinamente, pro- 
dus este tipo de som (isto acontece com 
/p/ na palavra pai). 

Esta é uma descrição apenas superfi- 
cial da produção da voz, pois, quando 
um som é pronunciado, existem cente- 
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Figura 2 


nas de variações menores que podem 
ocorrer na sua produção. Os sons bási- 
cos, utilizados na formação de uma lín- 
gua, são chamados fonemas. Entretanto, 
um mesmo fonema pode vir a ter sons 
diferentes, dependendo do contexto no 
qual ele está sendo empregado. Um 
exemplo é o caso do /p/ nas palavras es- 
pada e pai. Esta diferença do mesmo fo- 
nema é o que se chama alofone. Os alo- 
fones são representações sonoras mais 
apuradas do que os fonemas. 


PROCESSAMENTO DIGITAL DA VOZ 


Um dos fatores que mais contribuiu 
para o rápido crescimento da tecnologia 
da síntese da voz foi a integração de 
todas as funções necessárias para se ge- 
rar a voz em um único chip. Entretanto, 
seus sinais são tipicamente analógicos. 
Como, então, eles são convertidos para 
que possam ser processados pelos com- 
putadores digitais? 

Um sinal analógico é convertido para 
sinal digital empregando-se uma técnica 
conhecida por amostragem. Como pode 
ser visto na figura 2, um sinal pode ser 
amostrado periodicamente de maneira 
tal que, retendo-se somente amostras di- 





gitais, é possível reconstruir o sinal origi- 
nal. Isto é conhecido como o teorema 
da amostragem de Whittaker Shannon, o 
qual diz que a taxa de amostragem re- 
querida para uma exata reconstrução do 
sinal original deve ser, no mínimo, duas 
vezes maior que a frequência do sinal 
original. Por exemplo, se o componente 
de maior frequência de um sinal for de 
4KHZ, o sinal deve ser amostrado a uma 
taxa mínima de 8KHZ. Esta taxa míni- 
ma de amostragem é também chamada 
de taxa Nyquist do sinal. 

Os sinais digitais são mais atrativos 

que os analógicos nos seguintes aspec- 
tos: 
Precisão e confiança — devido ao proces- 
so de quantização nos sinais digitais, eles 
são menos sensíveis a ruídos na trans- 
missão do que sinais analógicos. Permi- 
tem também a detecção de erros e a re- 
cuperação de informações. 


Flexibilidade e processamento — com o 
avanço dos computadores e micropro- 
cessadores de alta velocidade, os sinais 
digitais podem ser processados em tem- 
po real e com grande flexibilidade. 


Taxa de dados — é normalmente propor- 
cional ao custo. O processamento digital 
da voz permite remover informações re- 
dundantes do sinal analógico e, assim, 
reduzir a taxa de dados. 


Qualidade —- o processamento digital 
pode remover ruídos e ecos do sinal de 
voz, aumentando dessa maneira sua qua- 
lidade. 


Custo do hardware — a tecnologia LSI 
reduziu drasticamente os custos dos pro- 
cessadores e memórias digitais, tornan- 
do-os de fácil acesso aos consumidores. 


Uma vez que os sinais estejam amos- 
trados e digitalizados, eles podem ser 
transmitidos diretamente através de um 
canal de comunicação ou armazenados 
para uso posterior. Para aumentar a efi- 
ciência da transmissão ou reduzir o ta- 
manho da memória no armazenamento, 
um processamento digital é normalmen- 
te feito para comprimir o sinal e reduzir 
a taxa de dados. Isso é chamado de codi- 
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ficação da voz. A seguir, apresentaremos 
algumas das técnicas mais usuais. 


TÉCNICAS DE 
CODIFICAÇÃO DA VOZ 


Existem várias técnicas disponíveis 
para a codificação da voz. Elas variam 
desde técnicas de transformação direta, 
ou seja, uma simples conversão digital 
da voz, como o PCM, até complexos 
modelos matemáticos, como a técnica 
LPC (código de previsão linear). Para 
o propósito de discussão, essas técnicas 
serão divididas em duas categorias: 
codificação de formas de onda e codifi- 
cação de parâmetro. 

A figura 3 mostra algumas das técni- 
cas mais comuns dentro de cada catego- 
ria. A taxa de transmissão de dados tam- 
bém está apresentada para dar uma idéia 
relativa ao custo e complexidade de 
cada técnica. 

Agora, daremos uma visão geral de 
cada técnica isoladamente e uma com- 
paração entre elas e as outras. Primeiro, 
serão discutidas as técnicas de codifica- 
ção de parâmetros. Assim, o propósito 
desta apresentação não é entrar em gran- 
des detalhes, mas dar apenas uma visão 
geral e conhecimentos necessários para 
se ter um melhor entendimento da tec- 
nologia de síntese da voz. A ênfase 
maior, na apresentação que se segue, 
será sobre as técnicas de codificação da 
voz sintética. Entretanto, a parte de 
análise da codificação da voz tem gran- 
de importância para o entendimento de 
outras técnicas, como a de reconheci- 
mento da voz por computador. 


CODIFICAÇÃO DE FORMAS 
DE ONDA 


Este termo foi escolhido para este 
conjunto de técnicas porque é o que me- 
lhor descreve como a informação está 
sendo codificada. Em cada um dos siste- 
mas descritos, o sinal de voz sintetizado 
é produzido a partir de informações que 
tentam reproduzir a forma de onda ori- 
ginal. A técnica de análise pode descre- 
ver a amplitude de cada ponto de dados 
que foi amostrado, como em Modulação 
por Códigos de Pulsos (PCM), ou pode 
descrever cada ponto amostrado em re- 
lação a um outro anterior, como em Mo- 
dulação Delta, ou ainda usar a combina- 
ção de várias técnicas de compressão, 
como na técnica desenvolvida por Fo- 
rest Mozer. 


PCM 


O uso do PCM é a técnica mais sim- 
ples de se implementar e se entender. 
O primeiro passo é converter o sinal de 
voz em informação digital, usando um 
conversor A/D. Uma vez na forma digi- 


tal, o sinal pode ser guardado em memó- & 
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Figura 4 — Canal de voz por PCM 


ria e ouvido novamente, usando um con- 
versor D/A, um filtro passa-baixa, um 
amplificador e um alto-falante. A figura 
4 mostra um diagrama em blocos sim- 
plificado de um canal de voz usando 
PCM. 

A vantagem deste método é a sua 
simplicidade na análise, algoritmos e 
hardware. Ambos os conversores são fa- 
cilmente conseguidos e relativamente 
baratos. O problema é a quantidade de 
memória requerida. 

Neste ponto, é conveniente apresen- 
tar alguns conceitos básicos, envolven- 
do taxa de transmissão de dados (data 
rate). Para uma adequada reprodução da 
voz, a resposta de frequência do sistema 
deve ser tal que as frequências abaixo de 
4KHZ sejam reproduzidas e as acima se- 
jam rejeitadas. Em outras palavras, O sis- 
tema deve utilizar um filtro passa-baixa 
de 4 KHZ. Este valor será adotado para 
uma melhor comparação entre as diver- 
sas técnicas. Como já foi visto anterior- 
mente, usando-se 4KHZ, a frequência 
mínima de amostragem será 8KHZ. O 
número de bits escolhido, para represen- 
tar cada amostra de voz, irá variar entre 
8 e 12, dependendo da qualidade que se 
deseja alcançar. A taxa de transmissão 
resultante seria de 64000 a 96000 bits 
por segundo (BPS). Em outras palavras, 
um segundo de fala iria requerer de 
64000 a 96000 bits de memória. 


MODELO DO 
TRATO VOCAL 
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PERIÓDICOS 


SURDO 


SONORO 
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CODIFICAÇÃO DE PARÂMETROS 


No método codificação de parâms- 
tros, outras características da voz, além 
da forma de onda original, são usadas 
nas análises e sínteses. Essas característi- 
cas são usadas para controlar um mode- 
lo que visa obter, na saída, um sinal de 
voz que não é similar ao original, mas 
que contém as mesmas informações. 

É importante notar que aqui não 
existe nenhuma intenção em reproduzir 
a forma de onda original da voz. Exis- 
tem várias técnicas que se propõem a 
preencher esta característica, mas nos 
deteremos somente à descrição da técni- 
ca mais utilizada, que é chamada LPC 
(Código de Previsão Linear). 


LPC pode ser descrito como um 
modelo matemático do trato vocal 
humano. Da figura 5, nota-se que os 
parâmetros usados para controlar o mo- 
delo representam a quantidade de ener- 
gia enviada pelos pulmões (amplitude), a 
vibração das cordas vocais (frequência 
de vibração, decisão de som surdo/ 
sonoro) e as mudanças no trato vocal 
(coeficiente de reflexão). O modelo da 
técnica LPC que se tornou padrão foi o 
LPC-10, apesar de alguns sistemas terem 
sido desenhados usando o LPC-12. 
Isto significa que o modelo usa 10 
coeficientes de reflexão, ou pólos, para 
modelar o trato vocal. A taxa de dados 
para o LPC-10 é tipicamente entre 1200 
e 2400 BPS. 


CONSIDERAÇÕES PARA 
DESENVOLVIMENTO 


Mesmo utilizando técnicas iguais, 
como LPC, por exemplo, os circuitos in- 
tegrados são desenhados com diferentes 
arquiteturas e processados com tecnolo- 
gias diversas, como indicado na figura 6. 
Há três importantes pontos a se levar em 
conta na seleção -da tecnologia de sínte- 
se da voz: custo, flexibilidade e qualida- 
de. Após ter-se estabelecido a aplicação 
e a performance que o sistema deve ter, 
a minimização de custos torna-se um 
ponto dominante. Por esta razão, baixa 
taxa de dados para se alcançar boa qua- 
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lidade torna-se o fator principal no de- 
senvolvimento do sistema. A codifica- 
ção de formas de onda pode produzir 
um boa qualidade de voz a uma taxa de 
dados muito maior que codificação de 
parâmetros. 


Entre as técnicas de codificação de 
parâmetros, LPC apresenta um meio ter- 
mo entre qualidade e taxa de dados. Es- 
tudos recentes mostram que a taxa de 
dados da técnica LPC pode ser futura- 
mente reduzida a uma taxa de 850 BPS, 
ainda mantendo uma boa qualidade de 
voz. Isto faz a LPC mais atrativa que as 
outras técnicas, principalmente em qua- 
lidade e taxa de dados. 


Flexibilidade é um outro fator a se 
considerar. Normalmente, codificação 
de parâmetros é muito mais flexível que 
a de forma de onda, devido aos poucos 
números de parâmetros ou variáveis. Por 
razões já apresentadas, LPC se apresenta 
como a solução ideal. A figura 7 resume 
as várias técnicas de codificação, em re- 
lação à taxa de dados (custo) e flexibili- 
dade. 


TÉCNICAS DE CONSTRUÇÃO 


Uma vez escolhida a técnica de codi- 
ficação, a técnica de construção da voz 
é o próximo passo. A construção da voz 
pode ser alcançada através de três apro- 
ximações básicas. Primeiro, frases com- 
pletas podem ser guardadas em memó- 
ria, para serem ouvidas mais tarde. Usan- 
do este método, a naturalidade e ou- 
tras características, inerentes à voz, fi- 
cam preservadas. Contudo, o custo da 
memória e a flexibilidade do sistema se 
apresentam com grandes dificuldades. 
Todas as frases a serem ditas deverão es- 
tar em memória e não poderão ser rea- 
grupadas para formar frases novas. 


Uma segunda técnica de construção, 
que aumenta a flexibilidade do sistema, 
é a concatenação de palavras. Nesta téc- 
nica, as palavras são guardadas em me- 
mória e conectadas para formar frases. 
Ganha-se em flexibilidade, visto que 
cada palavra é guardada só uma vez, 
mas podendo ser usada para criar mui- 
tas outras frases. A qualidade, entretan- 
to, é inferior à construção de frases, por- 
que palavras, quando postas juntas, 
soam um pouco artificial e sem naturali- 
dade. Este é o resultado de quando as 
palavras são usadas em um contexto di- 
ferente daquele em que foram gravadas. 
A flexibilidade máxima é obtida quando 
as palavras são quebradas em seus sons 
básicos, possibilitando a formação de 
um vocabulário ilimitado. Estes sons po- 
deriam ser fonemas, alofones, difones 
etc. Com estas unidades, qualquer frase 
ou palavra pode ser criada. 
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Figura 6 — Fabricantes de circuitos para voz sintetizada 


A quantidade de memória é reduzida 
somente ao necessário, para guardar es- 
tes conjuntos de sons básicos, que vão 
ser usados para criar o vocabulário. Mas 
o resultado é, mais uma vez, artificial e 
sem naturalidade. A escolha da técnica 
de construção deve ser feita entre flexi- 
bilidade, custo da memória e qualidade 
de voz (naturalidade e inteligibilidade). 
Tipicamente, quanto mais flexível for a 
técnica, menor é o custo da memória e a 
naturalidade do som. Portanto, aumen- 
tar a qualidade implica em maior consu- 
mo de memória e menor flexibilidade. 
Geralmente, quando a comunicação é o 
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Figura 7 — Comparação entre as técnicas de 
codificação de parâmetros e forma de onda 


objetivo primário, a técnica dos sons bá- 
sicos é a solução ideal. Já, quando a na- 
turalidade é o objetivo, a construção de 


frases é a escolha. 
= 


Frederico José Santos Meloni está cursando o sexto ano de engenharia na Unimep e trabalha, 
atualmente, como técnico responsável pelo desenvolvimento de vocabulário em voz sintetizada, 
na Texas Instrumentos. Fez treinamento no desenvolvimento de sistemas em voz sintetizada em 


Dallas — EUA. 
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Antes de inscrever-se em qual- 
quer curso de informática, conte 
até 10. Conheça a escola, os mé- 
todos e equipamentos. Confira 
se O que você vai aprender bate 
com o que você realmente preci- 
sa. O SENAC-INFORMÁTICA é 
a escola mais completa de São 
Paulo. Tem cursos práticos para 
quem quer aprender a operar, 
programar, conhecer linguagens, 
aplicativos, ou simplesmente, jo- 
gar com o micro. O SENAC-N- 
FORMÁTICA está oferecendo 
10 novos cursos nota 10 da linha 
Sinclair. Escolha o seu e venha 
tirar a prova dos 9. Você vai con- 
cordar em número, gênero e 
grau! 
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VAGAS LIMITADAS! 


Informações e Inscrições: 


Rua Dr. Vila Nova, 228 
Tel.: (011) 255-0066 
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Aplicativos Cibertron 


MICRO SISTEMAS estará analisando em suas próximas edições uma 
série de aplicativos para a linha MSX, lançados pela Cibertron. Os 
softwares são: MSX - Word, Planilha MSX, Banco de Dados e Assembly e 
Desassembly, além do Simulador de vôo 737. 

Estes aplicativos são vendidos ao preço de Cz$ 99,90 e podem ser 
encontrados na Amaroson (284-9644) e Magnodata (255-7653), em 
São Paulo: e em Sto. André, no Shop Áudio & Vídeo (444-6055). 




















“Estou bastante otimista 
com as novas medidas econô- 
micas. O setor de informática, 
em particular o setor comer- 
cial, só tem a ganhar com o 
novo pacote”, Assim se posi- 
cionou o gerente da Brasil 
Trade Center Com, e Partici- 
pações, Manoel D' Assumpção 
Gomes, em relação às novas 
medidas econômicas adotadas 

“pelo governo. 

Na opinião de Manoel D'As- 
sumpção as mudanças farão 
com que a indústria volte à 
situação de poder financiar o 
comércio, isto é, aceitar maio- 
res prazos de pagamento, fa- 
zendo com que os estabeleci- 
mentos comerciais possam fi- 
nanciar direto ao consumidor 
final, sem a interferência do 
setor bancário. 

Com essa situação estabele- 
cida, o que Manoel considera 
o mais importante, as outras 
questões serão gradativamente 
resolvidas. “Ainda estamos num 


Otimismo com as novas medidas 


período de adaptação, no mo- 
mento os negócios estão quase 
todos parados, mas o quadro 
vai mudar daqui a uns 60 
dias.” 

Quanto às mudanças mais 
imediatas, como o fim da 
ORTN e o congelamento de 
preços, Manoel afirma que não 
o afetaram muito. “Não baseá- 
vamos nossos preços na ORTN 
e, na verdade, já estamos com 
os preços congelados há algum 
tempo. Segundo ele, existe até 
uma tendência no setor de 
informática dos preços dos e- 
quipamentos baixarem, após o 
lançamento do produto, na 
medida que a concorrência 
se torna mais acirrada. 

“Além do mais”, ressaltou 
Manoel, “o setor de informá- 
tica depende muito do merca- 
do externo e a tendência 
lá fora atualmente é de baixa 
nos preços dos equinamentos 
e componentes e isso se reflete 
logo no nosso mercado”. 


Os vencedores do Enjoy Sampa 


mática em São Paulo, o certame 
encerrou-se em 31 de dezembro. 
A partir dessa data as telas po- 
diam ser vistas no módulo galeria, 
cada vez que o usuário do Sampa 
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Para estimular mais a participa- 
ção dos usuários do CBBS Sampa, 
seu operador Rizieri Maglio deci- 
diu promover um concurso de te- 
las, através do sistema: o Enjoy 
Sampa. 

“Decidimos fazer um concurso 
de telas, com desenhos”, conta 
Rizieri, “sem recorrer a caracteres 
gráficos. Desta forma, os usuários 
teriam que mostrar sua criativida- 
de, e todos poderiam concorrer, 
independente da resolução de seu 
micro. Daf saimos à procura de 
patrocinadores, recebendo desde 
o início todo o apoio por parte da 
MICRO SISTEMAS e da Rhede 
Tecnologia, fabricante de mo- 
dems”. 

Lançado em 23 de setembro, 
juntamente com a Feira de Infor- 


a 
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acessasse o sistema. No final 
havia um módulo para votação. 
Assim o julgamento das 11 telas 
apresentadas foi feito pelos pró- 
prios usuários, cerca de 200,0 sis- 
tema estava programado para evi- 
tar fraudes, detectando se o usuá- 
rio já havia votado ou não, 
impedindo-o de votar mais de 
uma vez. 

O vencedor, David M. Widman, 
de São Paulo, com a tela “COMP- 
MANY, recebeu como prêmio um 
micromodem específico para o 
seu micro, da Rhede Tecnologia. 
O segundo, terceiro e quarto colo- 
cados receberam uma assinatura 
anual de MICRO SISTEMAS. São 
eles: Cláudio Leonardo, com a te- 
la “Saturno”; Wagner Mengarda, 
com “Careca” e Paulo Sergio 
Motta, com “Chiptel”. 

Para Riz a experiência valeu, 
pois é preciso conscientizar o 
usuário de que ele tem inúmeras 
formas de participar ativamente 
do sistema, e por isso ele promete 
continuar desenvolvendo ativida- 
des que agitem e estimulem os 
usuários, como concursos e sor- 
teios. 





Terminais ED-3600 


A Edisa está lançando uma 
nova série de terminais de vídeo, 
a ED-3600. Compatível com 
os atuais modelos ED-25I1TA, 
ED-3620 e ED-3621, a nova sé- 
rie é formada por dois módulos 
separados: terminal de vídeo e 
teclado, 

O terminal de vídeo opera 
no modo assíncrono e possui 
uma tela de 24 linhas x 80 colu- 
nas, sendo capaz de representar 
até 256 caracteres e podendo ser 
utilizado com todos os computa- 
dores das séries ED-200 e ED- 
600. 

O teclado é ligado ao terminal 
por um cabo espiralado e possui 
88 teclas, incluindo um teclado 
numérico reduzido e teclas para 
controle do cursor. As teclas 





Jornal 
em 
disquete 


A Gávea Software Clube dei- 
xou de editar bimestralmente seu 
jornal, criando um novo sistema 
de atendimento ao sócio, via 
software. 

O projeto inclui, além dos 
programas em disquetes, um servi- 
ço de informação que, num pro- 
grama determinado, simulará o 
jornal que antes era entregue em 
folhas fotocopiadas. 

Esse serviço será entregue ao 
usuário mensalmente, em sua pró- 
pria casa, pelo Correio. O valor 
do serviço será de Cz$ 85,00, já 
incluído o preço do disquete. 

Além disso os associados do 
clube passarão a receber descon- 
tos de 15% na compra de livros 
da Editora Campus. 


Show-room Proisa/Prológica 


Um novo show-room na área da informática foi inaugurado 
no ABC paulista pela Proisa, revendedor exclusivo Prológi- 
ca,ligado ao Grupo Comercial Apolinário. Trabalhando com a 
Prológica desde 1984, o próximo passo da Proisa deverá ser a 
criação de um setor de software, mas segundo o presidente do 
Grupo, Isaias Apolinário, dentro de seis meses o próprio show- 
room já deverá ser pequeno para atender à demanda. Se você 
quer conferir o endereço é Rua Jacquey, ABC, São Paulo. 





também emitem um sinal audível, 
ajustável em 3 níveis de intensida- 
de. 










[ INFORM 


A | Feira de Informática do 
Triângulo Mineiro — INFORM — 
estará acontecendo de 10 a 13 de 
abril, em Uberaba, Minas Gerais. 

Promovida pela Sucesu do 
Triângulo Mineiro, com organiza- 
ção da Rotal Promoções, e apoio 
da Prefeitura Municipal de Ubera- 
ba, a | INFORM reunirá fabrican- 
tes e representantes do setor, 
abrangendo desde micros a equi- 
pamentos de grande porte. 

Nos dias 10, 11 e 12 de abril 
serão realizadas palestras sobre: 
Informática na Sociedade; O Mi- 
crocomputador na Pequena e Mé- 
dia Empresa; Informática na Agro- 
pecuária; O Microcomputador pa- 
ra Profissionais Liberais e Infor- 
mática na Administração Pública. 

A mostra terá lugar no Pavi- 
lhão “Henry Ford”, à Praça Frei 
Eugênio, nº 45, Uberaba, diaria- 
mente das 14:00 às 22:00. Os 
ingressos serão vendidos a preços 
simbólicos na entrada do Pavi- 
lhão. 
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Buffer de 
impressora 





Murici é o novo “buffer” de 
impressora, lançado pela Microsol 
Tecnologia, empresa sediada em 
Fortaleza, fabricante dos cartões 
de expansão para o CP-500 e 
CP-500/M80, da Prológica. 


O “tuffer” Murici, para im- 
pressoras paralelas, padrão Cen- 
tronics, tem memória mínima de 
64 Kb de RAM, expansível para 
até 256 Kb; velocidade de recep- 
ção de dados de 12.000 cps, 
e de transmissão igual à velocida- 
de suportada pela impressora. 
Conta com um modelo exclusivo 
de caixa, nos tons marrom e bege, 
que já abriga a fonte de alimen- 
tação, parte mais pesada do 
“buffer”. Entre suas funções, 
visando agilizar o desempenho da 


impressora, estão a de cópias 
múltiplas (de 1 a 65 mil), e as 
funções de retroceder, avançar, 
parar, limpar e autoteste. 


O endereço da Microsol é 
Rua Almirante Rufino, 779, Vila 
União, Fortaleza, CE, CEP 60420, 
tel.: (085) 227-5878, telex (085) 
1699 MISO. 


PC/DC 


Visando facilitar a solução de 
problemas com rotinas contábeis, 
a WK & WK Sistemas de Compu- 
tação Ltda., está colocando à dis- 
posição dos usuários de micros 
compatíveis com o IBM-PC, uma 
ferramenta para dinamizar a execu- 
ção destas rotinas; o PC/DC. 

O PC/DC é um software alta- 
mente interativo, permitindo uma 
fácil consulta, alteração ou lança- 
mento de qualquer item, emissão 
de relatórios, diários e razão. O 
sistema também permite transferir 
dados para outras planilhas eletrô- 
nicas como Lotus 1-2-3, dBase 
tll e Open Acess. 

O PC/DC custa 175 ORTN e 
tem garantia de seis meses. Maio- 
res informações podem ser obti- 
das na WK & WK, na Rua Mal. 
Achilles Gallorti, 118 -— Vila 
Nova, Blumenau — SC, tel.: 
(0473) 23-1871. 
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Conforme noticiamos na se- 
ção bits da edição de janeiro 
a Racimec e Dynacom estão 
entrando para o hall dos fabri- 
cantes do MSX. Apesar de ainda 
não ter data prevista para o lan- 
çamento -(talvez na próxima 
Feira de Informática), a Raci- 
mec confirmou que seu micro 
está em fase de teste. 

Já a Dynacom, tem seu lan- 
çamento marcado para abril, 
na UD/86, que acontecerá entre 
os dias 18 e 28, em São Paulo. 
O equipamento de 8 bits, com 
teclado anatômico profissional 
(separado da UCP, para que o 
usuário possa escolher a melhor 
forma de operá-lo), possui mi- 
croprocessador central Z-80: ve- 


lançamentos à vista 


locidade (clock) de 3,58 MHX: 
resolução gráfica de 256 x 192 
pontos, com 16 cores simultã- 
neas e sprites; memória ROM 
de 32 Kb e RAM inicial de 80 
Kb (64 para o usuário e 16 para 
o vídeo), podendo chegar, atra- 
vés de expansões externas a até 
256 Kb. O novo micro tem dois 
slots para conexão de periféri- 
cos e expansões; teclas de inse- 
rir e deletar caracteres; funções 
programáveis pelo usuário; ca- 
racteres gráficos e acentuação 
em língua portuguesa, além de 
saídas para impressoras paralela 
e serial, e conexões para áudio 
e vídeo. 

Por estar de olho nesta nova 
fatia do mercado, o MX-1600 — 


Hotbit acessa Videotexto 


Os usuários de Hotbit já po- 
dem acessar os serviços de Video- 
texto, da Telesp, e Cirandão da 
Embratel. A Epcom/Sharp está 
lançando no mercado, um cartu- 
cho reunindo interface padrão 
RS 232 e softwares para ligação 
com Videotexto e com outros 
micros. Segundo José Mário Fon- 
seca, gerente de Marketing em 
automação, a empresa espera ven- 
der 20 mil unidades do cartucho 
em 1986, uma vez que o consumi- 
dor poderá desfrutar de todas as 
vantagens de um micro, por um 
investimento semelhante ao que 
faria para possuir o terminal e 
configuração básica necessária pa- 


ra acessar ao Videotexto, pelo sis- 
tema usual. 

Outro periférico disponível é o 
HB-2400, um data record, ou gra- 
vador de dados, com sistema mo- 
nitor de som, comandos exclusi- 
vos phase system, e ajuste especial 
de ganho. O equipamento aumen- 
ta a confiabilidade na leitura e 
gravação de dados em fita cassete, 
tendo sido desenvolvido justamen- 
te para aplicações pessoais e do- 
mésticas, e no segundo semestre 
deverá contar também com disk- 
drive. A expectativa para 1986 é 
atender a 30% das 50 mil unida- 
des de Hotbit que a empresa es- 
pera comercializar esse ano. 


Troca de programas em BASIC 


Criado em Rio Claro, no interior de São Paulo, o “Basic Computer 
Clube”, está aceitando associados ou interessados na troca de programas 
em Basic para micros Sinclair, TRS 80, TRS Color, Apple e compatf- 
veis. Para maiores informações basta escrever para o “Basic Computer 
Clube”, Rua 1, Part. nº8 , Centro, Rio Claro, São Paulo, CEP 13.500, 











micro projetado pela Dynacom 
lançado em agosto de 1986 — 
está em ritmo lento. Segundo 
fontes da empresa, ele está 


sendo comercializado apenas em 
algumas lojas de São Paulo e 
não tem previsão de chegada ao 
Rio. 


Na linha de software para o 
MSX, a Plansoft, empresa paulis- 
ta, colocou no mercado 
aplicativos de conta a pagar, a 


receber e finanças domésticas. 
Em jogos, a software-house lan- 
çou uma série especial que inclui 
simulador de vôo, xadrez e aven- 
tura submarina, além de dez 
games pack, com dois jogos 
cada um. 


MX850 na 
Souza Cruz 


A Cia. de Cigarros Souza Cruz 
e a Elebra Computadores concre- 
tizaram uma negociação de grande 
porte envolvendo cinco supermi- 
nis MX850. Estes computadores 
substituirão os minicomputadores 
usados pela Souza Cruz e trarão 
maior performance do sistema. 

A primeira unidade do MX850 
foi instalada no último mês em 
Blumenau e a Elebra instalará 
os outros 4 computadores até o 
mês de agosto. Posteriormente 
o acordo prevê a interligação de 
todos os MX850 com os computa- 
dores IBM localizados na Souza 
Cruz no Rio de Janeiro. 

O MX850 é um supermini de 
32 bits baseado na tecnologia do 
VAX 11/750 e possui diversos 
recursos para processamento de 
programas voltados para aplica- 
ções comerciais. 






















De olho na Argentina 


“O Brasil está divisionan- 
do um oportuno aliado no he- 
misfério sul, no setor de in- 
formática;: a Argentina. E a 
recíproca parece ser verdadei- 
ra. Seja como for, existe 
atualmente toda uma movi- 
mentação envolvendo os dois 
países tanto na área de desen- 
volvimento tecnológico e cien- 
tífico quanto no setor de pro- 
dução e comercialização na 
área de software. 

Principalmente no setor 
técnico-científico o entendi- 
mento está bastante avançado. 
Desde janeiro de 85, quando 
foi formado um grupo bilate- 
ral responsável por esse proje- 
to, os trabalhos já avançaram 


muito, culminando com a rea- 
lização, em fevereiro último, 
do EBAI — Escola Brasileira» 
Argentina de Informática. 

A EBAI, que além de mi- 
nistrar um curso com alunos 
e professores dos dois países, 
deixou como saldo positivo 
uma série de temas de pesqui- 
sa que deverão se constituir 
em projetos a serem aprovados 
pela SEI e pela Secretaria 
de Informática da Argentina. 

O responsável no Brasil pe- 
lo projeto é o professor Car- 
los José Pereira de Lucena, 
titular do departamento de in- 
formática da PUC-RJ. Ao 
fazer um balanço da situação 
atual, Lucena declarou que até 


o meio do ano de 86 os pro- 
jetos de cooperação científica 
já deverão ter sido apreciados 
pelas secretarias dos dois paí- 
ses. Além disso, foram forma- 
dos seis grupos de trabalho 
que estão acompanhando de 
perto todo o processo. Com a 
seleção dos projetos, esses 
grupos irão partir para a fase 
de execução, arregimentando 
inclusive os estudantes da 
EBAI. 

Paralelamente, tudo está 
sendo preparado para jue no 
início do próximo ano seja 
realizada na Argentina a segun- 
da EBAI, formando dessa ma- 
neira um intercâmbio perma- 
nente. 








25 


atrações do Micro Festival 86 


Sem sombra de dúvidas as planos de baixar o preço do A-B- 
grandes atrações do Micro-Festi- C para Cz$ 5 mil 320. 
val realizado de 19 a 22 de março, M-XT, A Brasoft lançou a versão 
no Rio de Janeiro, concentraram- da Medidata: 2000 do Wordstar. Em português 
se na área de PCXTs. A maior par- o» lançamento fluente, inclusive os comandos 
te das grandes empresas que estão em 16 bits mnemônicos: com janelas para 
nesse setor optaram por seguir O até três documentos na mesma 
padrão IBM. Uma exceção é a tela: operações de cálculo em 
carioca Cobra que preferiu aper- | tempo de edição; comando sort e 
feiçoar sua linha apresentando o | a dicionário inglês-português atuali- 
seu conhecido Cobra 210 com a aee : zado, o Wordstar 2000 está sendo 
interface multiplexadora assíncro- io nn. - comercializado por Cz$ 15 mil 
na Micromux, o sistema operacio- 4 963. 
nal MMP-Monitor Multiprograma- Na área de gerenciadores de 
do, funcionando como telex ele- e . banco de dados, a Soft apresentou 
trônico. A Micromux permite — q ” ” o seu Dialog, em versão para XT. 
ao Cobra 210 ligação adicional de AAANRRETU SE a is e Compatível com o dBase Ill, o 
até quatro linhas assíncronas, ex- : TT a Dialog XT traz novos comandos 
pandindo o número máximo de a da e funções, análise de programação 
terminais de dois para seis. A Co- mais apurada e correção simplifi- 
bra está lançando também mais cada. Ele será oferecido em duas 
dois terminais da linha TR, o versões, português e inglês, ao pre- 
206 e o 278, que emulam termi- ço de Cz$ 12 mil. | 
nais IBM 3278, e ainda podemvi- minais assíncronos. O preço da A Gradiente mostrou em seu Outro gerenciador lançado foi 
rar o Cobra 210 com a troca da configuração básica é de Cz$ ... stand um drive de5 1/4" FS/DD O R: Base 5000, da Microsoft Cor- 
placa base. 145 mil. A Sector apresentou com capacidade para 180 Kb (a poration, representada no Brasil 
A Microtec apresentou o XT ainda opções de rede, topologia ser lançado em junho) e outro pela Compucenter, que traz como 
2002 incorporando o software de barra, adquiridas em OEM da drive de 3,5" com capacidade de Inovações um compilador interno, 
VP-Planner, da Paperback Soft- Cetus e da empresa paulista NCT 360 Kb (a ser lançado no início O RB Compiler; um gerador au- 
ware International, fundada por  (PC-Net). de 1987). É interessante observar  tomático de aplicações — Aplica- 
Adam Osborne e representada no Na área dos micros compatí- que a interface usada tem capaci- tion Express; entrada de dados 
Brasil pela Vista Tecnologia. O veiscom a linha Apple foram pou- dade para dois drives e serve tan- definível pelo usuário; índice 
VP-Planner é totalmente compa- cas as novidades. A Unitron apre- to para o modelo de 3,5”, como automático de manutenção e cha- 
tível com o Lotus 1-2-3 e vem sentou os seus Ti-Calce Ti-Tex- paraodeS 1/4”, ves. O preço do R: Base 5000 é de 
com banco de dados multidi- to ligados ao concentrador Intelex A CP Computadores, fabrican- Cz$ 19 mil 500. A Compucenter 
mensional e abertura de até seis da Tandem Tecnologia, um paco- te de micros de uso pessoal, não mostrou ainda o Windows, tam- 
janelas na tela, com o preço de te completo de hardware e soft- apresentou novidades, limitando- bém da Microsoft, um software 
Cz$ 4 mil e 700, só que os usuá- ware para conexão à rede telex, se a expor o CP 2005; 0 CP 400 básico que cria um ambiente 
rios de XT 2002 não pagam a e a interface Embramic 4000, da Color, aliás o único micro compa- operacional capaz de permitir O 
mais por ele. Além disso, a Micro- Embramic de Porto Alegre, tam- tível com o TRS-Color presente processamento, sob MS-DPS/PC- 
tec vai colocar no mercado uma bém emulando telex. na exposição e o CP 500 M-80, DOS, de vários programas no 
série especial de XT 2002 com re- As novidades da Unitron ficam que brevemente terá seu design al- mesmo tempo, transferindo dados 
cursos adicionais: clock de 8 MHz, por conta da confirmação, por seu terado, mais compacto. A CCE entre eles. O Windows custa 
o que significa um aumento de diretor Comercial, Geraldo Antu- demonstrava o micro MC-1000 e Cz$ 3 mil 800. 
desempenho da ordem de 67%; nes de Azevedo, do lançamento à Microdigital foi a grande ausen- À Intercomp mostrou também 
memória RAM de 736 Kb; e do primeiro Macintosh brasileiro, te. um lançamento na área de gerên- 
mais uma placa controladora de para o final do mês de maio. Com cia de banco de dados, o Dataflex, 
até quatro unidades de disco fle- o nome definitivo de Mac 512, SOFTWARE para CP/M e 16 bits. O Dataflex 
xíveis de 5 1/4” e outra de até o modelo da Unitron virá munido é multiusuário e uma das princi- 
duas unidades de Winchester, de de teclado numérico separado — o O segmento de software pros- pais características do produto é 
10 a 140 Mb. Essa série especial mesmo utilizado na configuração segue concentrando-se cada vez a flexibilidade, rodando sob diver- 
de XT 2002 será comercializada do Ti-Calc; memória inicial de mais na linha de 16 bits, notada- sos sistemas operacionais, entre 
nor Cz$ 12 mil a mais do que a 512 Kb, com possibilidade de ex- mente na área de pacotes de uso eles o MS-DOS, IBM-PC DOS, PC 
normal. pansão até 4 Mb por superposição geral, como as planilhas, processa. Net, CP/M e CP/M-86, NP/M- 
A Medidata reservou para o de placas e uma unidade de dri- dores de texto e gerenciadores de 86 e Turbo DOS. Para maio a 
Micro Festival o lançamento do ve de 3,5” com capacidade de bancos de dados. Intercomp promete incorporar ao 
M-XT, compatível com o PC/ 800 Kb. A empresa planejou um A grande novidade na área das  Dataflex um gerador de gráficos 
XT, com oito slots de expansão lote inicial de 200 máquinas para planilhas eletrônicas é arversão e funções matemáticas coproces- 
e 640 Kb de memória RAM, os primeiros seis meses e pretende 20 do Lotus... em português.  sadas. 
além da opção de operar como estabilizar a produção mensal en- O lançamento veio da empresa A Datalógica, representante da 
um micro de 8 bits, com CP/M- tre 300 e 500 equipamentos, de carioca PC-Software, e o pacote Ashton Tate no Brasil, reservou 
80 e com o sistema MUMPS. acordo com a demanda do merca- chama-se Samba. Trata-se de um para o Festival o lançamento de 
A Troppus também lançou um do. Para o primeiro lote de pro- sistema integrado idêntico ao livros de Treinamento Programa- 
XT, visando atender principal- dução, a Unitron importou as uni- 1-2-3 e dentre as vantagens apre- do com disquete dos softs dBase 
mente os usuários da rede Tro- dades de drive da Sony. Já o mou- sentadas em relação à versão 1. A Il, Dbase Ill e Framework, ao 
ppus. Apresentou ainda uma rede se e o monitor de 9” serão fabri- do Lotus, a mais usada no Brasil, preço de Cz$ 390 cada. 
privada de Videotexto, a Troppus  cados pela própria empresa. figuram acentuação natural; maior Por falar em edição, também fa- 
VN 1000, viabilizando aplicações Na faixa dos micros pessoais, facilidade na impressão de gráfi- zendo bastante sucesso no evento, a 
de comunicação de dados em ge- como aconteceu na última Feira cos e transferência de arquivos; editora Campus apresentou diversos 
ral, como corrêio eletrônico e de Informática no Anhembi, os alocação dinâmica de memória; de seus mais recentes lançamen- 
registro de resposta ao usuário. stands mais concorridos eram os compatibilidade com processador tos, como o “Inteligência Artifi- 
O Sector XT marcou sua pre- da Gradiente e da Sharp, com o  aritmético 8087; manual compac- cial em BASIC", de Mike James; 
sença no Festival como um novo Expert e o Hot Bit, da linha to em Português; curso e disquete “Linguagem de Programação pa- 
representante da linha de 16 bits, MSX. Na Sharp, destacamos o lan- de demonstração gratuitos. O pre- ra Micros”, de Garry Marshal; 
fabricado pela paulista Sector, çamento do gravador HB-2400, ço fica em torno de Cz$ 7 mil “MUMPS”, de Mauro de Castro 
originada da cisão, em agosto de especialmente projetado para uso 450. Também da PC-Software Lobo e “Visitrend/Visiplot”, de 
85, da Softec, fabricante do dos micros e ainda a interface de veio uma nova versão do proces- autoria de Raul Udo Christimann, 
Ego. O Sector XT admite o uso comunicação HB-3000, um cartu- sador de texto A-B-C com memó- colaborador da revista MICRO 
de sistema operacional Analix, cho que permite conectar via li- ria duplicada; novo lay-out te- SISTEMAS, que aliás participava 
multiusuário e, neste ambiente, nha telefônica um Hot Bit ao la e módulos de edição e impres- do stand da Campus promovendo ma 


permite a ligação de até oito ter- Videotexto ou Cirandão. são unificados. A empresa tem vendas de assinaturas. Me, 


e 
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LIGUE O RRESENTE COM O BUTURO., 


RP Cable é o que existe mais 
dv oO para hgar equipamblios de 
eletrd£ a e informática 

Ele pode ser usado mBbnstrução 
ei ligação de micro-compmRadores, 
computadores de grande giêdio porte 
apr rifércos 

Pode ser usado, tan. quando 
necessário ligar um grafnúumero de 
Mtormações interna e exilmmamente aos 
equipamentos 


Emas prático e feel e bga tudo 
munMelhor, até (e prndilimente!] 
o premio com o futuro 





Cabos Especiais e Sistemas Lida. 
BH 116/0888 «Liz Postal 146 - DGBDO - E 
SP Tel 0000042433 Pabx -Telesx 011/20 
RAR EA ELSE Pireicabileo 

















Trata-se de um sistema anticorrosivo e antiabrasivo Com resina pro- 
duzida sob avançada tecnologia nos Estados Unidos, Japão e agora 


no Brasil. 


SUAS PRINCIPAIS VANTAGENS 


* excepcional resistência a ataques químicos e abrasivos; 


* cura rápida, entregando a área revestida em poucas horas ao trá- 


tego de empilhadeiras: 


* excelente ancoragem - coeficiente de expansão igual o do con- 
ereto, tornando-se monolítica com a base; sem apresentar trincas 


ao longo da utilização, 


» excepcionais resistências químicas (mais de 250 produtos quimi: 


COS), 


* excepcionais resistências mecânicas (Impacto. compressão, te 


xão e abrasão), 
necessidade de piso anti-derrapante. 


fácil limpeza, não permitindo o desenvolvimento de bactérias pa: 


togênicas, virus e fungos; 


* temperatura de aplicação desde —30ºC até 60ºC, não exigindo 


parada da área operacional. 


E Spa dia sá, 
Produzida e Distribuida no Brasil pela Ô 
REVESTIMENTOS POLYPLEX INTERNACIONAL LTDA. 
Av. São Luiz, 187 - 2º sobreloja - loja 25 
01046 - São Paulo - SP - Fone: (011) 258-6609 - Telex: (011) 53728 





SISTEMAS ANTICORROSIVOS 
DE RESINA QUANTUM 


ONDE SE APLICA 


* pisos de Indústrias químicas, alimentícias, eletro-eletrônicas, au- 
tomobilisticas, petroquimicas, armazéns, supermercados, hanga- 
res, oficinas mecânicas, 

* sinalização de tráfego e de áreas Industriais expostas a condi 
ções climáticas, ataques químicos & mecânicos, 

* tanques de concreto ou aço; 

“ esgotos e elluantes Industriais, municipais e residenciais; 

* impermeabilização de paredes, pisos, tanques e torres de concre 
to com trincas em sua estrutura. 


COMO SE APLICA 


4 Resina Polymórtica Quantum pode ser aplicada na forma de pin: 
tura com pincéis, brochas, rolos, pistola dols componentes, ou na 
forma de argamassa quando a resina é aglomerada com areia silica 
classificada, 





trs-80 trs-80 trs-80 trs-8 








Toque música no seu micro 


Ari Morato 


O programa permite a concatenação de notas musicais, para 
músicas muito simples, no CP-500. Este processo também 
pode ser empregado em outros programas através da utilização 
da string MUS, com as rotinas citadas nas instruções do pró- 
prio programa ou atraves de instruções DATA com os números 
fornecidos pelo mesmo. O emprego da string é mais simples, 


] CUTUCCCTECLLCLCCNHETALEC ENCANTA RAR nana nun 
o “NM GERAMUS/RAS Programa Gerador Musical para CP-500 .< 
: “ms futors àri Morato - Fone (091) 8721-6446 “= 
4 “es Caixa Postal 238 Horto 35.140 Ipatinga — MG a 


CELT Cs en ia nn uau 
1tO CLEARZDODO 
20 DIMNO(CPS5S)* DD=12288 LA$=STRINGS(69,61)7 GOSUB 1020 s: GOTO PO 


a CLOscPRINT “wa GERAMUS/BAS nem Ari Morato ses 05.410,83 
sen“ sPRINTAS:IPRINTIPRINTCESte programa permite a composicao de 
rotinas dé OM para O seu ECP-SOO. 


40 PRINT Voce podera" usar essas r itinas em seus programas, inse 
rindo em instrúucoes DATA, os valores listados pelo comando €,)º 
SO PRINTCOU entao utilizando a string MUS, listada pela Linha 54 


0.º 4 PRINT'Neste caso, sera* necessaria sua conversão pela roti 
na contida nas linha 820) a 790.7 

40 PRINTYA rotina de som esta nas linhas 1020 a 4080,” +: PRINT' 
à rhamada da USR sera feita pela rotina das tinhas 380 a 420,” 


TO PRINT:PRINTO'NaoO precisa proteger memoria Mem. lisada?<(ENTER))Y 

SPRINTOLigue a saida MIC" do computador ao Amplificador 

nO Gosua 41000 

O + 3 SPRINTY se... 

SPRINTASIPRINT] 

100 PRINTTAB(4S)C < ENTER JOG TAB(2S)” TOCAR"E PRINTTAB(1S)T < q 
«TAB (25)” INSTRUCOES” *: PRINTTAB(1S)” « Ps TAB(2S)” LISTAR N 

OTAS”: PRINTTABCIS) é CLEAR )“sTAB(2S)” FIM DE PROGRAMA” 3 PRIN 


GERADOR MUSICAL enem 


(TAD(4SIT CS )YTAR(25)” GRAVAR EM DISKETTE OU FITA” 
110 PRINTTAB(15)” "sTAB(25)" RECUPERAR DO DISKETTE OU FITA” 
SPRINTTAD(45S) (4 9"; TAB(2S)” COMPOR” 


(70 PRINTIPRINTYFaca sua escolha” 
(130 IFPEEK(14400)=1THENI7ZOD FLSEIFPEFEK(14400)=2THEN4SO ELSEIFPE 
FK(14340!=14THENAZO FLSEIFPEEK(14352)=32 THEN430 


140 IFPEFK(44352)=644THENSSO ELSEIFPEEK(14337)=1THENSO ELSEIFP 
FEK(14352)=2 THENASO ELSE1I0O 

150 CLSIPRINT una GERADOR Musical senna 
SPRINTASSPERINT 

140 PRINTTABC20OI"NOTAS DISPONIVEISCIPRINT 

(70 PRINTTABCZOIVA = DO”; TAB(ISICU = DON“IPRINTTAB(20)"S = RE“GT 
AB(ISIVE = RENC“IPRINTTAB(20)"D = MI sPRINTTAB(Z0O)"F = FA“sTABCIS 
Bê = FANVIPRINTTADB(20)CB = SOLT:TAB(IS)CT = SOLHVSPRINTTABC2O) 
H = LA“sTAB(95)"Y = LAN“IPRINTTAD(CS0)T 4 81 

180 PRINT'Para encerrar sua composicao, tecle numero 8” 1 MUS= 
190 FOR 4 = 14 TO RSS £ IF Je?55 THEN NOCI)=999 3 K$=72”s GOTO 36 
t 

200 IF PEEK(14937)=2 THEN NO(1)=145 E: K$=7A73 6070350 

40 IF PEEK(14340)=128 THEN NO(J)=195 +: K$="“W": 6070330 

220 IF PEFkK(1443401=8 THEN NOC4)=129 3 K Ss“: 6GOTOI3IS0 


% 
230 IF PEEK(44397)=32 THEN NO(J)=122 + K$=7E7: 6070950 
280 [EF PEEK(14297)=14 THEN NO(CJ)=145 E K$="D"E GOTOISO 
oco tF PEFKC14997)=44 THEN NO(J)=108 : K$="FYs GOTOISO 
240 IF PEEK(14940)=4 THEN NO(J)=102 : K$=7R”: 6070330 
O IF PEFK(144337)=1728 THEN NOCI)=P77 + K$="6"* GOTOISO 
280 IF PEEK(14940)=1tá THEN NOc<J)=92 1 K$=“TY5 GoTOISo 
270 IF PEEK(14398)=1 THEN NO(I)=Bá4 + K$="H”º: GOTOIIO 
400 IF PEFK(14944)=2 THEN NO(J)=B1 5 K$=72Y75 GOTOISO 
MO IF PEEK(14998)1=4 THEN NO(CJ)=77 3 : GOTO3SO 
120 I[FPEFK(14340)=1 THEN NOCI)=999 2 K$="0“7 J=255 + GOTO 360 
4130 IFPEFK(144400)=1728 THEN NO(J)=500 + K$=" 3: PRINT NO(C4), + GO 
TOIAO 
140 Go0oTOZD00 
130 XeUSRCNOC4)+DD) 
40 KKESKKS+AKE 2 NEXT | 2 MIUS=KKS 3: GOSUB 1440 : GOSUS 1000 + GO 
TO 9H 
170 TF I=0 THEN CLS: PRINT “BUFFER VAZIO...“* GOSUB1400D +: GBOTO9O 
80 FOR J 1T02PSS IF NOCI) = PPP THEN J=235 Goto 420 
ISO IFPEEKX(14400)=2THEN4ASO 
ano tF NOtII=S500 THEN FORZ=1TOSINEXTZSGOTOSZO 
10) x=UISRCNOCI)I+DD) 


120 NEXT t 54 GOTO PO 

430 FF i=0 THEN CLS: PRINTCBUFFER VAZIO. ..“* GOSUBLNDOO + GOTOPO 
Asi) ti $ INPUTOARAVAR (SAVE) EM <DIISKETTE OL CF5ITAS 0% 

as0o TF Dg D THEN SAO ELSE IF D$=“F THEN 740 ELSE 440 


Gerador musical 
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facilitando a digitação e otimizando as rotinas de gravação em 
disco ou fita. Caso se deseje, pode-se modificar as durações e 
notas disponíveis de acordo com o seu conhecimento de música. 





Ari Morato possui um CP-500, há cerca de um ano, e é funcionário do 





Departamento de Engenharia Industrial da Usiminas, no cargo de Téc- 
nico em Análises Industriais. 


460 PRINTCFIM DE PROGRAMA“ ZEND 


az0 


IF J=0 THEN CLS! PRINTYBUFFER VAZIO... .“:GOSUB10O0OD * GOTOPO 


ADO CLSsPRINTYESTAS SãO AS COMBINACÕES UTILIZADA NESTA MUSICAL 


PRI 
GoToO 
a90 
500 
Ss40 
se 0 
530 
S4u 
ssSo 
IFP 
sao 
S70 
sHoO 
so) 
400 
s10 
é cU 
430 
440 
650 
440 
670 
BO 
490 
700 
7140 
72U 
730 
74 
750 
760 
1=8B, 


770 


NPUT' 


7 ao 


vo 
se « 
s00 
UT”7 
10 
B20 
Sao 
Hat 
BSo 
Ba) 
570 
aao 
ara 
200 
2140 
720) 
230 
240 
eso 
7a0 
270 
280 
Pro 
4000 
40140 
4020 
4030 
1040 
1050 
1060 
4070 
10890 
1090 
4400 
44140 


NTAS: FOR J=1T70255: PRINT NO(J),: IF NOCJI=999 THEN J=259 
sao 

TF I=S52 THEN GOSUB 14000 

IF J=104 THEN GOSUB 1000 

IF J=1S6 THEN GOSUB 1000 

IF J=208 THEN GOSUB 1000 

NEXTI + PRINT 

PRINT MIS * GOSUB 1000 +: GOTO PD 

CLSsSIFICIOTHENINPUTOHA* DADOS NO BUFFER. CONTINUO 15/N)5";P%: 
=“N“ THENSO ELSE IF PS<)S THEN 550 

CLS + INPUT'RECUPERAR (LOAD) DE DÍISKETTE OU <F57TA4DS 
[FD$=“D” THEN470 ELSE IF 0$=“FTHEN 790 ELSESGU 

CLS * PRINT' sssess=) GRAVAR EM DISKETTE 
INPUT “MUSIC NUMERO" GR 

RE=STR$(R) AL=LENCRE) 3 RTS=RIGHTA(RS, KI 11 

NOM$S = “HUSIC” + RTS 

OPEN “07,41,NOMS 

CLSSPRINT NOME 

PRINT + PRINTOGRAVANDO” 

PRINTHA, NUS 

CLOSE +: GOSUB100O0O * GOTOPO 

CLS 5 PRINT” ess...) CARREGAR DO DISKETTE 
INPUT “MUSIC NUMERO" GR 

R$=STR$ECR) RL=LEN(RE) 2 RTSE=RIOHTSCRS, RL-1) 

NOMES = “MUSIC” + RT$S 

OPEN“I”,4, NOMS 

CLS + PRINT NOMS 

PRINT + PRINT “LENDO 

INPUTHS, MUS 

CLOSE + GOTO B20 

CLSsSPRINT' ===) GRAVAR EM FITACISPRINTEIINPUTOLass 
P=A)"syUs IFU(LL OR V)2 THENZ6O 

POKE 14913,V-1 : PRINTIPRINTOPREPARE GRAVADOR EM "RECORD" 
TECLE <ENTER> GUANDO PRONTO,“ +:TS 

PRINTIPRINTOOBRAVANDO : PRINTH-L, MUS : GOSUB 14000 : GOTO 90 


CLSIPRINT' Es CARREGAR DE FITAVIPRINTIINPUTOCa 
1=8, 2=4)“,Vi IFUCL OR V)Z THEN 790 

POKE 16913,V-t PRINTIPRINTOPREPARE GRAVADOR EM 'PLAT CSN 
ECLE <ENTER> QUANDO PRONTO“; TS + MUS= 

PRINT=:PRINT CARREGANDO" 3 INPUTH-1, MUS 
PRINTºSPRINTOCONVERTENDO STRING 

FORJI=1 TO LENCHUS) 

KE=MIDS(MLS,J,1) 


[F K$="A THEN NOC 1) 145 * BOTO PSD 
IF K$="U THEN NO(S (tas 3 GOTO PP 
TF K$="5” THEN NO(J) = 429 3 GOTO PPO 
IF K$S="F THEN NO(S 17? + GOTO 990 
[F K$=“D” THEN NOCJ) 148 4 GOTO PP0 
IF KE=7F THEN NO(S 108 + GOTO PRO 
IF K&="R THEN NOCS) tD?P +: GOTO PPÓ 
IF KS="G THEN NO( JS) 27 sz: GOTO PPO 
IF K$="Tº THEN NOC 4» 2 + GOTO 990 
IF K$="H THEN NO(J Bá s GOTO PPO 
IF K$&=“Y THEN NO(S) = B14 35 GOTO PPO 
IF K$="J THEN NÓtl) = 77 + 6070 990 
IF Kf="a THEN NO(CJ)S = 999 4 GOTO P9O 
IF K%s " THEN NOCJ) = 500 


NEXT =: GOTO 90 
PRINTOPBSB, PRESSIONE < ENTER PARA CONTINUAR 
IFPEEK(14400)=1THENRE TURN ELSESDSLU 


“ue nneaROTINA 

H$="12345570901234567890123 

W = VARPTRCMS)F Lo PCEKIWM+A1 17 MS PEEKCUW+7D)1 La2SáRMS+ 
IF PEEK(16I96)=201 THENPOKE 155268,L5IPOKE 16527,M5:60TO1070 


DEFUSR = L+(1L)92767)255536 

FORI = LTOL+22 : READS: POKEI+(1)592767)045596,53 NEXTI 
RE TURN 

DATA 205,1427,10,203,34,67,62,1,2114,255,14,254 

DATA 697,62,2,211,7255,16,254,37,32,239,201 

CLS: PRINTYBUFFER CHETO...º2 RETURN 
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apple apple apple app! 








Antonio Carlos Salgado Guimarães 


Quem utiliza o CP/M sabe da 
importância que o comando TYPE 
possui, pois através dele é possi- 
vel examinar-se o conteúdo de ar- 
quivos sem a necessidade do uso 
de editores de texto. Por exem- 
plo, para se verificar o conteúdo 
do arquivo CONTA.BAS, seria 
necessário apenas dar o comando 
TYPE CONTA.BAS e este arqui- 
vo seria apresentado na tela. 

O Applesoft não possui este 
comando, já que arquivos do tipo 
A (BASIC) e B (Binário) podem 
ser examinados de maneira sim- 
ples, seja listando-os, como é o 
caso dos arquivos de programas 
em BASIC ou via Monitor, como 
os Binários. 

Entretanto, a ausência deste 
comando no Applesoft pode cau- 
sar algumas dores-de-cabeça e 
um pouco de trabalho, pois se 
desejarmos verificar o conteúdo 
de um arquivo do tipo T (Texto), 
não encontraremos nenhum co- 
mando que nos ajude e teremos 
ainda que utilizar um editor de 


dois programas, um em BASIC 
(listagem 1) e outro em Assembler 
(listagem 2). O programa em 
BASIC é que faz a parte pesada 
do trabalho e o em Assembler 
serve para carregar o programa 
em BASIC para a memória e 
rodá-lo. 


Vejamos os principais pontos 
do programa em BASIC através 
da análise de suas linhas: 


130 —- Em caso de erro, des- 
via o fluxo de execução para a 
linha 260. Veja a linha 170 para 
melhor compreensão. 


170 — É utilizado o comando 
VERIFY de uma forma diferente 
da usual, isto é, o comando não 
foi empregado para se verificar 
se um arquivo foi gravado corre- 
tamente, e sim para se ter certeza 
de que ele existe. Caso ele não 
exista, o fluxo de execução do 
de que ele existe. Caso ele não 
exista, o fluxo de execução do 
programa é desviado para a linha 


REM “eae nan. 
REM + 
REM e 
REM + 
REM - 
* 
“ 
* 


.......- 


PRINT DS“OPEN“NOS 
PRINT DS"READ"NOS 
ONERKR GOTO 230 
HOME 


YPE 


SALGADO 


REM MICRO SISTEMAS PRINT D$4“NOMONCIO" 
REM PRINT D$S"CLOSE“NOS 
REM END 

REM 260 ER = PEEK (222) 

REM INICIO 270 PRINT CHARS (7) 


e... .... 


REM 280 1F ER = & THEN PRINT "NGO E 
XISTE ESTE ARQUIVO": GUTO JO 


TEXT : HOME :DS = CHARS (4) 
ONERR GOTO 260 

PRINT DS“NOMONCIO" 

PRINT D&"MONIO” 

INPUT “TYPE "NOS 300 END 
PRINT D$"VERIFY"NOS 


+ 
IF ER = 13 THEN PRINT 
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texto, o que não é nada prático. 
Como em muitas ocasiões necessi- 
tamos verificar o conteúdo deste 
tipo de arquivo, seja para saber- 
mos se o nosso programa está 
gravando os dados corretamente, 
seja para bisbilhotar um arquivo 
de um pacote (se você tiver o 
Lock Smith 5.0, dê uma olhada 
nos arquivos para ver que inte- 
ressante) ou mesmo de um jogo, 
apresentamos, a seguir, um utilitá- 


160 e o programa termina avisan- 
do que o arquivo não existe. 

180 —- 190; Abre o arquivo. 
Em caso de erro, significa que o 
arquivo é de tipo diferente (A, B 
ou 1) e o programa avisa que o 
arquivo não é do tipo Texto. 

200: Em caso de erro, desvia 
o fluxo de execução para a linha 
230. Neste caso, usamos a instru- 
ção ONERR para indicar o fim 
do arquivo, evitando a mensagem 


rio que poderá nos ajudar em “FIM DE DADOS”. 
qualquer destes casos. 220: Lê e imprime os dados do 
Este utilitário é composto por arquivo. 
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GET AS: PRINT AsSt: GOTO 220 


“ESTE 
NAO E* UM ARQUIVO TEXTO" 





Type para o Apple 


230 — 250: Termina o progra- 
ma de forma normal. 

260 — 300: Termina o progra- 
ma indicando o tipo de erro que 
ocorreu. 


Caso o arquivo Texto seja do 
tipo de acesso randômico, não se- 
rá impresso nada na tela, e o pro- 
grama terminará de forma normal. 

Este programa deve ser salvo 
com o nome de TYPE. 


O segundo programa, feito em 
Assembler, tem duas tarefas. A 
primeira é montar nos endereços 
$3F5 a $3F7, que correspon- 
dem ao endereço de desvio após 
uma instrução & um JMP para o 
início de uma rotina que tem por 
finalidade executar a instrução 
RUN TYPE. Note que o método 
empregado para executar esta ins- 
trução poderá também ser utiliza- 
do em qualquer outra instrução 
do DOS. Para guardar em disco 
este programa em Assembler, digi- 
te: BSAVE TYPE,0BJ,A$300, 
L$24. 


eo ED OR 


“qua 
+) ma 


- es 
da A b4 


AMPER 


e quê ua 
4 e 


5 
0300 APAC 
BDF5S03 
ASILO 
DF 603 
APOS 
30C BDF703 
3S0F &0 
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(Un... ...... 


A melhor forma de se usar este 
utilitário é colocar dentro de seu 
HELLO a instrução BRUN TYPE. 
OBJ. Com isto, sempre que vo- 
cê der o boot passará a ter a sua 
disposição o programa TYPE, pois 
bastará um simples & para que ele 
seja recuperado do disco e execu- 
tado. 

Uma observação: antes de exe- 
cutar o comando &, verifique se o 
programa que está na memória 
já está salvo em disco, pois, caso 
contrário, ele será perdido quando 
o programa TYPE for carregado. 


Antonio C. Salgado Guimarães é 


formado em Engenharia Mecânica 
pela Universidade Santa Ursula e 
trabalha, atualmente, como Pro- 
gramador no LNCC/CNPq, onde 
presta apoio técnico ao Projeto 
de Desenvolvimento de Software 
em Engenharia Mecânica para Mi- 
ni e Microcomputadores, além de 
colaborar periodicamente com 
artigos técnicos em revistas espe- 
cializadas na área da informática. 


[queen naununnan." 


EXECUTA TYPE 


SALGADO 


ORG 8300 
OEJ 8300 


STROUT EQU SDBJA 


EQOU S3FS 


+ 
5 MONTA VETOR & 


LDA W$4C 
STA AMPER 
LDA RINICIO 
STA AMPER+1 
LDA /INICIO 
STA AMPER+2 
RTS 


f 
E INICIO DO PROGRAMA 


INICIO LDA “RUN 


3 
1 RUN 
b 5 
sDB4 E RUN 
D2DSCE 
AoDADP 
O DOCS 
BDOo 


ee... END OF ASSEMBLY 


Listagem 2 


LDY RUN 
JSR STROUT 
RTS 


HEX EDB4 CR, CTEL-D 
ASC “RUN TYPE“ 


HEX BDOO 
END 
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BRASIL TRADE CENTER 


Comércio, Indústria e Participações S.A. 


COMPUTER SHOPPING 





e 





Mesas 
para C2$ 2.413,00 


Microcomputadores 


Fabricação própria € Cores discretas € Desenho moderno 








EQUIPAMENTOS 


Micros das linhas: Sinclair é TRS-80 6 CCE € Unitron é 
Dismac € TK 2000 Il e TK 85 € Exato Pro € Impressoras 
Modem € Etc. 





SUPRIMENTOS 


Periféricos € Disketes € Fitas € Drives € Placas de 
Expansão € Interfaces e Formulário Contínuo € Cabos 
e Arquivos para Disketes € Etc. 





SOFTWARE 


Programas e Jogos variados para todas as linhas e 
marcas de Computadores 


VIDEOS 


Curso de Inglês em vídeo cassete € Telão € Suporte 
para TV e Transcodificação para todos os sistemas € 
Fitas: VHS - BETA-U-MATIC e para limpeza de cabeça € 
Baterias para 2 e 8 hs. € Iluminadores € Cabos de 

extensão para Câmaras € Bolsas para Câmaras e Vídeos 











BTC-02 M 
Cz$ 1.781,00 
Cz$ 1.516,00 


F ] 
———ee 


BTC-05 M 
BTC-03 M 











Cz$1.792,00 


— 


BTC-04 M 
BTC-01 M 


J 
Cz$ 1.298,00 


Nas lojas Brasil Trade Center, você também 
encontra video-game, cartucho com jogos, 
som, telefonia, etc., das melhores marcas. 


VISITE UMA DE NOSSAS 
LOJAS E COMPROVE O 
QUE ANUNCIAMOS 


Matriz: Av. Epitácio Pessoa, 280 
Ipanema-RJ — Tels.: 259-1299/259-1499 


Filiais: Rua da Assembléia, 10 — Loja S-112 
Centro-RJ — Tel.: 222-5343 


Rua Silva Vale, 416 — Cavalcante-RJ 
Teis.: 592-3047/592-3098 


Rua Lopes Trovão, 134/Sala 201 
Niterói-RJ — Tel.: 710-3659 


Rua Conde de Bonfim, 229 — Loja A 
Tijuca-RJ — Tel.: 284-2031 


SERVIÇO EXPRESSO REMETEMOS PARA TODO O BRASIL 


OFERTA VÁLIDA COM A APRESENTAÇÃO DESTE ANÚNCIO 
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Cadastro de programas 


Heber Jorge da Silva 


Cansado de procurar este ou aquele programa em seus diver- 
sos disquetes? Acha ruim quando tem que pesquisar, disco 
após disco, à procura de espaço vago para alocar um determi- 
nado programa? Preocupado com o controle dos backup de 
seus programas? 

Se você está tendo esses problemas, não se preocupe mais: 
este programa, desenvolvido em diskbasic para a linha TRS-80 
modelos I/III, com pelo menos um drive, permitirá a você, sem 
perder tempo com digitação, cadastrar até 1000 programas e 
arquivos gravados nos seus disquetes. Com ele, você pode ainda 
saber, através de listagens na impressora ou vídeo, em qual dis- 
co está alocado cada programa, bem como a disponibilidade de 
cada disco em granules e FDES. 


COMO UTILIZAR 


Este programa é dirigido pelo menu apresentado na figura 
|, o qual pdde ser acessado de qualquer parte do programa 
através da tecla Clear ou digitando-se a palavra menu. 

Para cadastrar programas dos discos, basta escolher a Opção 
1, colocar disco após disco nos drives e ir pressionando a tecla 
referente ao número do drive (O a 3), no qual se encontra o 
disquete a cadastrar. Não existe limitação quanto ao número 
de discos cadastrados, porém o de programas está limitado a 
1000. 


CADAPROU Vs 2.0 - Cadastro de Programas em Discos +“ 


1 — CADASTRA Programas do 
2 - ALTERA Cadastro de um Disco 
3 -— GRAVA o Cadastro Átual 
4 — IMPRIME o Cadastro 
5 — ORDENA o Cadastro 
- FIM de Operacao 


Nao ha' Cadastro na Memoria 





Figura 1 


Se você inseriu e/ou eliminou programas de um disco, em 
poucos segundos poderá atualizar as informações referentes a 
esse disco com um mínimo de esforço: ao escolher a Opção 2, 
o programa lhe pedirá para entrar com o nome do disquete a 
alterar. Então, o programa eliminará do cadastro todas as refe- 
rências desse disquete e executará um recadastramento do 
mesmo. 

Escolhendo a Opção 3, o leitor poderá gravar todas as in- 
formações do cadastro num arquivo em disco. Já a Opção 4 
permite que você veja as informações do cadastro no vídeo ou 
em relatórios gerados na impressora. Essas informações podem 
ser listadas em ordem alfabética por programa ou por nome de 
disco, em ordem crescente ou decrescente (de acordo com o 
que você escolher na Opção 5). 

Se o cadastro estiver ordenado por disco, a listagem conte- 
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rá, além dos nomes dos programas e discos onde estão aloca- 
dos, um resumo da disponibilidade em cada disco em granules 
e FDES, bem como um resumo final com o total de progra- 
mas, discos, granules e FDES. Caso o cadastro esteja ordenado 
por programa, a listagem conterá apenas seus nomes, os discos 
onde se encontram e o resumo geral. 

Através da Opção 5, você poderá ordenar o cadastro por 
programa ou por nome de disco, na ordem crescente ou de- 
crescente. Finalmente, a Opção 6 lhe permite finalizar a opera- 
ção, saindo para o BASIC. 

No menu do programa não consta opção para leitura do 
arquivo que contém o cadastro, porém esta operação será rea- 
lizada sempre que você escolher as Opções 2 ltera) ou 4 (im- 
prime), sem que os dados do cadastro estejam na memória do 
micro. Neste caso, você será solicitado a entrar com o nome do 
arquivo que contém o cadastro a ser processado. 


REM COCA CEC AR nn nana... 
FEM eme UTILITARIO PARA CADASTRAMENTO DE PROGRAMAS ... 
REM wse EM DISCOS ... 
REM eee Por Heber Jorge da Silva - Brasília DF - 1984 ces 
REM CCEE CCC CCE AU Una aaa" 
& CLSIPRINT"Um momento ... “CLEAR 27000: DEFINTA-Z:CMD"BREAL,NH:O 
NERRORGOTO 58 
* MP=999:DIM NPS(MPI, OPS (4) US(SB),P(Z) 

8 BRS=STRINGS (12,32) :BS=STRINGS(653,45):18="e CADAFROG Vs Z,.0 - E 
adastro de Programas em Discos «";AUS="(I984) por Heber Jorge da 
Silva" Le=CHEAS (TO) VE=CHRS (TI) SAPE=STRINGS (12,191) :MES="MENS 
7 ALS=STRINGS (15,32) FRIS=AIS+"<< ESCOLHA a opcao... “IRIS=ALE+",. 
«opcao a ESCOLHA >>"FAl=ISINP=-IIVI=15360: TC=14400:LP=15425:FDsq 

:“OR=0 
lo FOR J=i TO 6:READ OPSCJ):MNEXT J:DATA CADASTRA Programas do 
Disco, àL TERA Cadastro de um Disco, GRAVA o Cadastro Atual, IMPR 
IME o Cadastro, ORDENA o Cadastro,FIM de Operacao 
11 FOR J=) TO SB:READ US(JIINEXT 3 
|2 I=0 ND$S="“:FDO="":GR$="":A08="":GOSUB!IO:PRINT:IPRINT:PEINT BS 
*0=5P0LFOR J=1 TO 6:PRINTOD,Jº —- "OPS(J):0=0+67:NEXT J:PRINT BE: 
IF NP<O THEN OD=sO:PRINT"Nao ha” Cadastro na Memoria“ELSE IF OD=o 
FHENPRINT'Cadastro Nao Drdenado” 
|I3 IF OD PRINT'Cadastro Ordenado por “;: IF SDPRINTºDISCO"ELSEPRI 
NT“PROGRAMA 
14 PRINT VEL CV6="1723456";POKEVI+251, 183:POKEVI+277, 187: POKFEVI+D9 
7, 1653: POKEVI+3IZ, 197:PRINTAZBA,"M E N UMS 
3 P5=262: GOSUB 125:GOSUB 19:GOSUR IP:PRINTEZSA," MENU “5 
ló PS=29B8: GOSUB 125: GOSUB 19:GOSUB 19:PRINTEZB4,"M E N US 
17 GOTO 15 
18 De=RISIFOR X=1 TO LEN(DS) +ISLSET R38=MIDS (DS, X):GOSUEB DO:sNEXT 
X: RETURN 
19 DE=R2SiFOR X=LENIDS)TO 1 STEP-LILSET RSS=MIDS(DS,X):GOSUE ZO; 
NEXT XZRE TURN 
«OU ES=INKEYS: IF K$=""“ THEN FOR T=1 TO 12:NEXT T:OUT 255, 14:0U7T 25 
Ss O:RE TURNELSE K=INSTRICVS,kS) 
21 IF E=0 THEN RETURN 
é C=KiON K 607029,45,55,65,23,105 
23 IF NP<O THEN 12 ELSE 0OD=-1 
4 ME="ORDENACAO por nome de <D>isco ou de “P>rograma”: GOSUR 109 
:Cvê="DdPp"“: GOSUB 106:SD=K<3 
25 M$="Em ORDEM <C>rescente ou <D>ecrescente 7":;GOSUE 109:Cvs="t 
cDd"“:GOSUR 106; SB=k>72 
26 IF SE AND NOT SD THEN 5=1 ELSE IF NOT SD AND NOT SE THEN 5=2 
ELSE IF SD AND SE THEM S=TELSEGS=4 
27 GOTO 39 
28 IF AD THEN AD=0:GOTO 12 
=? ND$="“:;M$="Apos inserir o Disco, tecle O numero do Drive (de 
U a 3)“: GOSUE 109 
30 CV$="01253":GOSUB 106:0N k GOSUB1Z21,122,123,124 
351 I=0:ND=ND+1:PRINTIPRINTES:PRINT TAB(25)"Favor aguardar... ":FO 
RJ=1337170153768: ND$S=NDS+CHRS (PEEL (J)):POKEJ, 191: NEXTI:FORJ=15402 
7015403: FD$S=FDS+CHRS (PEEK (J)):POKEJ, L191:NEXTISFORI=1S412T0IS414: 
GRS=GRS+CHRS (PEEK (J)) :POKEJ, IPIINEXTI:P=15488:D=1I5;NP=NP+I 
32 FD=FD+VvAL (FDS): GR=ER+VAL (GRS) 
33 Pi=PIIF NP>MP THEN NP=NP-1:GOSUR 119:GOTO 12 
34 FOR J=0 TO 11:NP$(NP)=NPS (NP)+CHES (PEEK(PI+SJISINEXT Jil=1+1 
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35 IF Pi=15488 AND NPS(NP)I=BRS THEN ND=ND-1 

sé IF NPS(NF)=BRSTHENNPS (NP)=""INPSNP=-L:NDS="":FDS="“:GR$S="“:601 
O 28 ELSE PRINTSPI-VI,APSSSPI=SPL+ADINPS (NE) =NPS CNP) cNDS+E DE+GES 
37 PRINTE96O, ND“ Discos, “NF+1" Programas“s: IF L/4=INT(]/44 THEN 
P=P+ro4:NF=NP+L:IGOTO TS 

58 NP=NP+1: IF NP>MP: THEN NP=NP-1:GOSUH 119:6010 12 ELSE 34 

>? PRINT TAB(ZO) “ORDENANDO ..."s7:ONSGOTO4AG,41,47,47 

ao CMDºOP,NP+L,-NPSLOH:GOTO 44 

41 CMD"O",NP+L,NPS(O)SSGOTO 44 

42 CMDºO" NP+L,-NES(O) (15, B)LGUTO 44 

43 CMND'“O",NP+1,NPS(O) (153,8) 

44 SAS="Ordenacao": GOSUR J11:G0TO 12 

45 AD=-1: IF NP>-=OTHEN dó ELSE GOSUE 117 

46 M$="Nome do Disco": GOSUE 109; INPUT NDS:PRINTES4B, BEJIÍF NÚS=M 
ESTHENIZ 

47 IF LEN(INDS) -ATHENSGSELSE IF LENt(NDS) GTHEM NDSeNDE+SIRINUGE CE-=L 
EN(ND$),32) 


48 PRINTOTSA,LEFETGI4,"Eliminando registros da Disco “ENDSSIa=0 
49 IF MIDS(NPS(X),153,810CNDS THEN 54 
SO PlOS=0TPILI=VARPTRINES (0) ):P(2)=X: DEFUSR=VARP TR UUS CO) E J=USk é 


VARPTR(P(0)) JIELSEL+1:NP=NP-12 IF EL=1 THEN FD=FD-VAL (MIDS (PO Cx) 
121,2) ) 26E=BR-VAL (IMIDS (NFS (X),253,53)):60T0 Se ELSE 52 

51 XeX+1 

de IF X>NP THEN 53 ELSE 49 

53 PRINTSTOS,LSS:2IF EL=OTHENNMS="Nao existem registros do disco 
"+NDSELSEME=STKRS (EL) +" Registros eliminados do Disco “+NDS 

54 GOSUB 107:60SUB 120:IF EL=0 THEN 12 ELSE EL=0:ND=ND-1:0D=0:G0 
TO 29 

55 IF NP<SOTHENIZELSEMS="Nome do Arquivo": BOSUB 109: INPUT AOS: PRI 
NT8445, 6964: 1IF ADUS=MESTHENIZELSE IF LEN(ADS) 172 OR LENtADS1 1 THE 
N Ss 

dó PRINTESBA,LSFB4LO, "Um momento +... “FIOPEN“O”, L,ADS:PRINTEL,NP: 
NDSFDSGR:SDIOD:;FOR J=0 TO NPSPRINTOL,NPSCIILFRINTESOT,NFPSCJIFENE 
ET J 

57 SAS="Gravacao": GOSUB 111:GOTD 172 

50 IF ERR/2+1021 THEN ONERRORGOTO O 

57 IF ERR/2+1=54 THEN NM$="NAO EXISTE ESTE ARQUIVO ""ecsgosuR JO 
G:60OTO 44 

do IF ERR/2+1=58 THEN NMS="ERRO DO SISTEMA OPERACIONAL “:GOSUE to 
P:60TO é&4 

61 IF ERR/2+1=68 OR ERR/2+1=69 THEN NMS="DISQUETE PROTEGIDO "2:60 

SUB 109:G0OTO 44 

62 IF ERR/2+1=62 THEN NM$="FALTA ESPACO NO DISCO":GOSUR Jos: Goro 
Sa 

63 ONEKRORGOTO O:GOTO 12 

64 GOSUE 1Z20:CLOSE:RESUME 12 

65 IF NP<O THEN GOSUE 1153 

66 Me="Saida para a Impressora (S/N)":GOSUB 109:CV8="SeNn":GOSUR 
106: IF E>2 THEN 86 

57 mM$="Prepare a Impressora e tecle RETURN": GOSUE 109:CV$=CHEAS (1 
SIIGOSUB 106:P6=1:0NSD+2 GOSUB 116,115 

Ss Mé=“Tecle <"+CHRS(9I)+"> Se Desesar Interromper":GOSUE 109: 1F 
SD THEN 75 

&9 FOR J=0 TO NP STEP 2 

70 LPRINT LEFTS(NPSC(J) IZITAB(ISIMIDS(NPS(J),13,8) TAB(ZSILEFTECN 

PE(J+L) IDITABCSOIMIDS (NP$S(]+1),13,8):1F FEEK(TCIAND B THEN ES 
74 IF PEEKI(LP)>SB THEN GOSUE 118;:GOSUE 115 

72 NEXT qJ 

75 LPRINT BSILPRINTCTOTAL:“NFP+1" Programas e Arquivos, em"ND" Di 
scos":LPRINT'A disponsbilidade Total e” de"FD" FDES, e“GKR" Granu 
les":;LPRINT Bs 

74 FOR L=1 TO 64-PEEK(LPIZLPRINTENEXT L:SAS=" Impressao": GOSUE 11 
1:GOTO 12 

73 SDS=MIDS(NPS(01),13,8/7]=-1 

Té J=sJ+L: IF J>NP THEN 753 

77 GOSUB LIZ:LPRINT MIDSCNPS(J), 13,0) TABCISILEFTSINPS(JI,I2)3SIF 
MIDS(NP$(J+1),13,6)<>SDs THEN LPRINT:GOTO 97 ELSE J=J+1 

78 IF J>NP THEN 73 ELSE GOSUB 11Z:LPRINT TABCISIMIDS(NPE(J),1S,8 
JTAB(SO)LEFTS(NPS(J),1Z) 

79 IF MIDS(NPS(]J+1),13,8)<>SDS THEN 83 

Bo IF PEEK(TC)IAND B THEN BS 

81 IF PEEK(LP)>SB THEN GOSURB 118:GOSUE 1164 

B2 GOSUB 112:G60T0 84 

83 LPRINT BS:LPRINT“DISPONIBILIDADE DO DISCO “MIDS(NPS(J),15,8) 
“1 “FPS* FDES e “GR$S" Granules“;LPRINT ESILPRINT: IF PEEK(LPI>SB 
THEN GOSUE 118:GOSURB 116 

B4 SD$=MIDS (NPS(J+1),15,B):G0TO 76 

85 M$="Operacao Cancelada pelo Operador"; BOSUR 109:GOSUE 120:6071 

O 12 

Bó SDS=MIDS(NPS(O),1IZ,B):PRINTOL9D, V$FRIPZ,F:P=320: IFSD THEN 95 

87 PRINT'PROGRAMA“TAB(IS)"FONTE“TAR(40) “PROGRAMA “TAB (SS) “FONTE”: 

PRINT Es 

SE FOR I=0 TO NP STEP Z: IF SD THEN 95 

8? PRINTOP,LEFTO(NPSC(I), ID) TARCIS)MIDECNES(1),13,8):5 

90 PRINT TAB(IO)LEFTSCNPSCT+1), 12) TAB(SSIMIDS(NPS(1+1),153,8) 

91 P=P+64: IF P>896 THEN P=320:PRINTO977,"Tecle RETURN para conti 

nuar "5: CVSSCHRS (13): GOSUB 106:PRINTESZO, VI 

92 NEXT 1 

953 PRINT BS:PRINT'TOTAL: “NP+i"Programas e Arquivos, em“ND" Disco 

S"IPRINT'A disponibilidade total e* de“FD”“ FDES, e“GR" Granules”* 
“PRINT B$: IF NOTSD THEN GOSUB 106:FRINTRI9Z,V$SI:GOTO 17 ELSE PRI 

NT"Tecle <CLEAR> para o Menu"; 

74 KS=INKEYS: IF K$=""THEN 94 ELSE IF K$=CHRS (TIL) THEN 12 ELSE 94 

95 CLS:PRINT'» Tecle <BREAK> p/ "CHRS(T4) "congelar “CHRS(T4)" à | 
istagem, <CLEAR> p/ o Menu e":PRINT BS:SDS=MIDS(NPS(O),15,8):J=- 
! 

Pé J=J+12:1F J>NP THEN 93 

97 GOSUB 112:PRINT MIDS(NFS(J),1Z,B)TABCIZILEFTS(NPSCJ),I2)4$IF 

MIDS(NF$S(J+11,173,8)<>5D$ THEN FPRINT:GOTO 107 ELSE J=J+1 

98 IF J>NP THEN 93 ELSE GOSUR 112:PRINT TAB(SSIMIDS(NFS(J),13,H) 

TAB(S4B)LEFTS(NP$S(J), 12) 

$9 IF FPEEKITC)AND 2 THEN 12 

100 IF MIDS(NPS(J+1),13,8B). -SDSTHEN 107 

1601 GOSUB 112:G0TO 103 

102 PRINT BS:PRINT"DISPONIBILIDADE DO DISCO “IMIDSINFS(J/,13,8)5 
“2 "FPS" FDES e “GR$S“ Granules":PRINT ES:PRINT 

103 SDS=MIDS(NPS(J+1),13,8) 

1O4 IF PEEK(TCIAND 4 THEN 104 ELSE Sé 

105 M8="Finalizar Realmente 7 (S/N) "2: GOSUE 199:Cvs="SsNn"“:GOSU 

B 106:1F K>2 THEN 12 ELSE CLS:CLOSE:;CMD"BREAK, Y":CLEAR SO: END 
106 PRINTRIAS,"Tecle “CHRS(34)"CLEAR"CHR$S(341" para o MENUS: 
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107 K$=INKEYS: IF K$="" THEN 106 ELSE IF ES=CHRS (TIL) THEN 12 

108 E=INSTRICVS,KS): IF K=G THEN 106 ELSE PRINTER! 46,L85:RETURN 
109 GOSUB 1J10:PRINTRIPZ, VE: B2S64, FIPRINT TABCINT((64-LEN(OPS(C))H) 
/2))0PS(C)IFIPRINTESZO, ESIR4AA, PSEZBA,FIPRINT TABCINT( (64-LENCMS 
1)/2))M$$ RETURN 

HO PRINTEO, PRINT TABLINT((64-LEN(T6))/72)4 TESLS:PRINT EBSSPRINT 
AUS: RE TURN 

111 CLOSE 1:M$=“0kK' Terminada a operacao de “+SAS:GOSUEB LOP:GOS 
UE 120: RETURN 

112 FPS=MIDS(NPS(J),21,2);:6R$=MIDS(NPS(J),23, 3): RETURN 

113 M$="“Nome do Arquivo": GOSUE 109: INPUT AOS:PRINTES4B, ESFEIF AQ 
S=MES THEN 12 ELSE IF LEN(AQS)>12 DR LEN(AQOS)<1 THEN 113 

114 PRINTOTSA, LEFR4GLO, "Um momento ..."FIOPEN“I”,1,A08: INPUTRI, NF 
«ND,FD,GR,SD,OD:FOR J=0 TO NE: INPUTOL,NPSCJISPRINTRGOS, NPS(JIFIN 
ExT J:SAS="Leitura": GOSUB 1IIZRETURN 

115 Y8="PROGRAMA": Z8="FONTE“:GOTO 117 

116 Y$="FONTE": Z8="PROGRAMA" 

117 POKE LP,O:LPRINT TSS:LPRINT TAB(S4) "Pagina" PGILPRINT EBSILPR 
INT YSTABCIS)ISTAB(IS) YSTABISO) ZSI;LPRINT BSILPRINTERETURN 

118 LPRINTILPRINT TAB(S3)" (continua) ":P6=PG+ISFOR L=1 TO 66-PEE 
(LPITLPRINTINEXT LIRETURN 

119 PRINTE9BO, "NAO CABEM MAIS REGISTROS ...":s 

i2o FOR T=1 TO BOO:;NEXT T:IRETURN 

121 CMD'“DIR I"“:RETURN 

1I22 CMD'DIR 1 I":RETURN 

23 CMD“DIR 2 I":RETURN 

124 CMD“DIR 3 I":RETURN 

125 R38=" ":POKE VARPTRI(RIS),AISPOKE VARPTRI(RIS)+2, INTIPS/256) +6 
O:POKE VARPTR(RIS) +1,PS-INT(PS/256) 256: RETURN 

126 DATAS2717,-6902,-7715,28381,-B958,B70, 11237, 11094, ILOZ,IIOS 
1,110531,32299, 28381, -B956, 1382, -66997, -13489,-13534% 

127 DATAI0OS53,107531,-133353, 12345,-13320, 10711,-16120,-5367, 2497, 
6379,716126, -15935,-5367, 1545, 202248, -13347, 17924, 48996 

128 DATA-5163,-6903,-18453,21229,-15899,-11807,552, 20243, 6187,1 
1027,-18459,17133,9189,-4681,-6830,-77453, 10449, -4B842 

129 DATA-S197, 159453, 50464,4139,-13828 


[5] 
Cadastro e 
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Paolo F. Pugno 


“Só falta falar”. Isto é o que muitos dizem 
quando podem ver com os próprios olhos ou 
experimentar com suas mãos O que um micro 
da linha ZX Spectrum é capaz de fazer. Pois 
bem, vamos suprir esta falta e lançar um novo 
desafio: agora só falta mesmo é ele pensar! 

Aproveitando a saída de som de nosso mi- 
cro, podemos realizar coisas muito interessan- 
tes, e uma delas é a emissão de sons que cor- 
respondam à voz humana. Isso, podem dizer 
alguns, demandaria tabelas quilométricas de- 
terminando a pronúncia dos vários fonemas, 
um trabalho decerto não fácil. Porém, há ou- 
tro caminho: fazer a síntese dos sons vindos 
de uma fita cassete. Deste modo, nosso micro 
poderá falar com nossa voz ou ainda cantar 
uma canção (um trecho dela) com à voz do 
cantor preferido. Lógico, a saída de som não 
será de alta-fidelidade, mas é perfeitamente 
possível distinguir as palavras e sons, ainda 
por cima com a opção de variarmos a veloci- 
dade de execução. Vejamos assim como isso 
pode ser feito. 


A PORTA 254 


A porta de entrada e saída 254 (FE em 
hexadecimal) é uma das mais importantes do 
micro: quando utilizada como input, lê o te- 
clado e contém o estado da entrada EAR do 
cassete, no bit 7 (D6). Portanto, o que temos 


Ss POKE 23609,55: RESTORE * CL 
EAR 327671: FOR f=0 TO 77: READ z 
: LET a=(32768+f): POKE a,z* NEX 
T f 

10 DATA 243,17,24,1214,933,232,1 
28,14,0,6,8,2197,254,203,119,40,2 
,2093,193,203,9,62,6,61,392,253,16 
,2939,1413,27,95,123,178,932,227,23 
1,201 

20 DATA 243,17,24,1421,33,292,1 
28,78,6,8,58,72,92,15,15,145,203, 
121,40,2,238,56,211,254,203,9,62 
,4,614,32,253,16,239,27,35,123,17 
8,32,224,251,201 

100 BRIGHT 4: CLS + BORDER 5 

110 PRINT AT 0,057 SINTETIZAD 
OR DE SONS E VOZ “AT 5,735"Cc) 
- Carregar som (o) 

- Quvir” 

120 LET h=150: LET p=INT (RND*4 
+41 

136 IF h(<104 THEN GOTO 120 

140 PLOT Q,h: DRAW OVER 45 INK 
psross,0: LET h=h-í 

150 IF INKEY$="" THEN GOTO 1430 

160 LET aS=INKEYS: IF a$="“0" OR 
af="0" THEN GOTO 300 

170 IF af<)“c” AND as<)C” THEN 
GOTO 136 

186 CLS +: PRINT AT 0,05 PAPER 1 
; INK Sy FLASH 157 CAR 
REGAMENTO da 

190 PRINT AT 10,075"A partir de 
que endereco voce quer carrega 
r os sons? -)“p* INPUT e: PRINT 


FLASH 1Lre 
200 IF e(<33000 THEN CLS * GOTO 
180 
Sintevox 
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a fazer é monitorar esta porta e ir anotando os 


valores que formos encontrando na memória. 


Depois faremos o caminho inverso: examina- 
remos a memória e, de acordo com as infor- 
mações estocadas, iremos pilotar a saída de 
som do micro através da mesma porta 254. 
Quando for utilizada em output esta porta, 
além de controlar o som, também pilota a cor 
do BORDER, Portanto, devemos tomar cui- 
dado com isto, se quisermos evitar um estra- 
nho piscar do BORDER. 


O PROGRAMA 


O programa em si é muito simples: uma 
pequena rotina em linguagem de máquina fará 
todo o serviço. Vou explicá-la passo-a-passo: a 
primeira coisa a fazer é desabilitar as interrup- 
ções; sintetizar sons com um computador já 
não é normalmente tarefa fácil, imagine-se, 
então, sendo interrompido SO vezes por se- 
gundo! Em seguida, carregamos os registrado- 
res HL e DE com o endereço inicial do bloco 
de bytes reservado à memorização dos dados e 
com o comprimento deste bloco. 

Iniciamos, portanto, um ciclo de oito re- 
petições: lemos a porta 254, verificamos seu 
bit D6 e, de acordo com seu estado, setamos 
ou não o bit DO do registrador €. Este regis- 
trador, então, sofrerá uma rotação à esquer- 
da, liberando espaço para mais um bit. Um pe- 


240 PRINT AT 13,07; Quantos byte 
s serao reservados para o som? 
-— > “SAT 14,447º INPUT nº PR 
INT FLASH 1yn: IF n+e>65000 THEN 

GOTO 210 

220 LET b=INT (e/256)t LET c=e- 
bw256: POKE 32773,c: POKE 32774, 
b: LET b=INT (n/256): LET c=n-b* 
256: POKE 32770,c+ POKE 327741,b 

230 PRINT HOsAT 1,05"Ligue o gr 
avador, digite enter”: PAUSE O 

240 BORDER 2: RAND USR 32768: B 
ORDER 5 

ose CLS +: GOTO 100 

300 CLS + PRINT AT 0,05 PAPER 4 
s INK 73 FLASH 157 REP 
RODUCÃO > 

310 PRINT AT 40,075Endereco ini 
ciai do bloco? (ENTER= o ul 
timo usado) “ga INPUT as 
: IF af="" THEN GOTO 330 

320 LET e=VAL ab: LET b=INT (e/ 
256): LET c=e-256"b: POKE 32773, 
ct POKE 32774,bt IF e<33000 THEN 

GOTO 306 

330 PRINT aS;AT 14,05Numero de 

bytes do bloco? (ENTER= o 

ultimo usado) “ss INPUT 

ag: IF af="" THEN GOTO 350 

340 LET n=VÁL at: LET b=INT C(n/ 
256): LET c=n-2564b: POKE 32773, 
ct POKE 32774,b 

350 PRINT af: IF nte>65000 THEN 

GOTO 300 
36460 BORDER 4: RAND USR 32805: B 
ORDER 5: GOTO 1006 
500 SAVE CHR$ 18+CHR$ 1+SINTEV 
0x” LINE 1 





queno retardo também é executado. 

Depois que o ciclo for executado oito ve- 
zes, o valor de € será estocado no endereço 
indicado por HL, que será incrementado logo 
após. DE será decrementado, e, se seu conteú- 
do for zero, o controle retornará ao BASIC. 
Caso contrário, começará tudo de novo, des- 
de o ciclo de leitura da porta. Isto é feito com 
o digitalizador. Já, com o sintetizador, execu- 
tamos exatamente a operação inversa: carre- 
gamos em C o valor do endereço indicado por 
HL e, examinando-o bit por bit, mandamos 
ou não um click à saída de som (bit D4) da 
porta 254. Essa operação é feita oito vezes, 
após o que incrementa-se HL, decrementa-se 
DE, seu conteúdo é examinado e, se for dife- 
rente de zero, volta-se ao início. Caso contrá- 
rio, retorna-se ao BASIC. 

Outra coisa: no começo de cada rotina, as 
interrupções foram desabilitadas através da 
instrução DI. Antes do retorno ao BASIC, é 
necessário que elas sejam habilitadas nova- 
mente, portanto, utilizando uma instrução El 
antes do RET. 


COMO UTILIZAR AS ROTINAS 


As duas rotinas estão situadas acima do 
endereço 32768, mas não há restrições quan- 
to às suas posições na memória, pois não con- 
tém nenhum salto absoluto. No entanto, se 
forem posicionadas nos primeiros 16 Kb de 
RAM poderão não funcionar perfeitamente, 
já que a ULA tem prioridades nesta área de 
RAM. Esta área contém o mapa de vídeo, o 
qual deve ser explorado periodicamente, a 
fim de enviar uma imagem à tevé. Se a UCP 
tentar acessar esta parte da memória enquanto 
a ULA estiver realizando este trabalho, ela 
terá seu clock suprimido até que a ULA o te- 
nha terminado. Normalmente, isto não causa 
grandes problemas, mas, no nosso caso, signi- 
ficaria uma temporização irregular do pro- 
grama, prejudicando o resultado final. Portan- 
to, atenção também com isto. 

Para utilizar as rotinas, você deve colocar 
uma fita com a mensagem gravada no seu gra- 
vador, uma música mesmo serve. Digite 
RANDOMIZE USR 32768, dê partida no gra- 
vador e aperte ENTER. O programa memori- 
za cerca de 10 segundos de sons, contudo isto 
pode ser alterado mexendo-se no valor dos re- 
gistradores DE, no início de cada rotina. 

A temporização também pode ser alterada, 
mas há algumas limitações: quanto maior for, 
menos memória utilizaremos, porém a quali- 
dade também será baixa. Uma temporização 
pequena gasta a memória rapidamente, mas a 
qualidade do som de saída é bem melhor. A 
sugestão é que se mexa à vontade com o pro- 
grama, tentando encontrar a configuração que 
melhor se adapte às suas necessidades. Para 
ouvir O que foi gravado, digite RANDOMIZE 
USR 32805 e... curta um bom som! 


m 
e 





Paolo Fabrizio Pugno cursa atualmente o pri 
meiro ano da Faculdade de Engenharia Indus- 
trial (SP) e possui um ZX Spectrum, com o 
qual desenvolve programas. 
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GERATRON 


Gerador Eletrônico Portátil 


ENERGIA DE 


EMERGENCIA PARA 
MICROCOMPUTADORES 








ES 


E VOCÊ JÁ CONHECIA 


GERATRON sempre foi a 
solução ideal e econômica para 
alimentação de emergência de 
microcomputadores da linha 
Apple e TRS-80. 


Agora você tem disponível o 
GERATRON PC 500. Com 
potência de 500VA nominal e 
1500VA de pico e dotado de 
chave de transferência estática 
e sincronizada, o GERATRON 
PC 500 garante o 
funcionamento ininterrupto dos 
micros compatíveis com 
IBM-PC, na configuração mais 
completa, durante várias horas 
após a falta de rede elétrica. 


Mas se você precisa de mais de 
S00VA, a GUARDIAN também 
dispõe do modelo 750. 


AGORA TAMBÉM 
PARA PC 
COMPATÍVEIS 





GERATRON é marca 
registrada da GUARDIAN, 
EQUIPAMENTOS ELETRÔNICOS LTDA. 
MATRIZ 

Rua Dr. Garnier, 579 - Rocha 

CEP 20971 - Rio de Janeiro - RJ 
Teis.: Geral (021) 261-6458 
Vendas: (021) 201-0195 

Telex: (021) 34016 

FILIAL 

Alameda dos Ubiatans, 349 

CEP 04070 - São Paulo, SP 

Tel.: (011) 578-6226 


ENERGIA À TODA PROVA 


apple apple apple ap 








Limpador de cabeçote 





Felipe Fessler Vaz 


Uma das principais preocupações dos usuários é quanto ao 
drive. Ele é uma das peças mais importantes do computador, 
pois quando falha, ninguém sabe o que pode acontecer. 

Este programa permite a você limpar o cabeçote do seu 
drive, um dos cuidados que todo usuário deveria tomar. O 
programa passa o cabeçote quatro vezes em cada trilha do dis- 

co, em alta velocidade, tirando a sujeira. 

“Além de utilizar este programa, observe que você terá que 


LIMPADOR DE CABECOTE 
por Felipe F. Vaz 
para Micro Sistemas 
agosto/8B5 


816 TO 844 
POKE 1,D 


FOR I = 
READ D: 
NEXT 1 
HOME 1: 
14 
INVERSE + 
CABECOTE": 
VTARE 7: FRINT "QUAL DRIVE « 
1 OU 2, O TERMINA) "Ps: GET À 
PRINT : IF A = O THEN HOME 
: END 
IF À 4 > 
130 
VTAR 11: PRINT 
”* PARA COMECAR " 
IF PEEkK ( —- 16384) £ 
PEEk ( — 16384) « + 
180 
VTAR 7: 


POKE — 16368,0: HTAEB 


PRINT "LIMPADOR DE 
NORMAL 


1 AND As is 


APERTE “CR 


141 


CALL — 988: VTAB 12 


2 THEN 


13 AND SO 
THEN 


tomar outras precauções com o seu drive. Lembre-se que ele 
é um aparelho frágil e, portanto, deve ser tratado com cuidado. 
Verifique sempre a velocidade, tomando ainda o cuidado de 
não abrir ou fechar a porta do drive quando ele estiver em fun- 


cionamento. 


a e 
Felipe F. Vaz cursa atualmente a primeira série do segundo grau no Co- 
légio de Aplicação, da UFRJ. Ele possui um Exato Pro onde desenvolve 


programas em BASIC. 


FLASH : PRINT "LIMPANDO O DR 
IVE "A 
VTAR 24: 
ARA PARAR": 
POKE - 16368,0: 
FOR VO = 1 TO 4 
VTAR 15: PRINT 
E. 4" 
FOR T = 0 
NEXT T.VO 
VTAB 12:A = PEEK «< — 
+ PEEK ( - 16336): 
INVERSE : PRINT " 
: FOR J = 1 TO 2000: 
GOTO 130 
IF PEEKE « - 
PEEK ( - 16384) = 
POP : GOTO 130 
VTAR 17: PRINT 
E 35 "4 POKE B20,T: 


PRINT "APERTE ESC P 
NORMAL 
FOKE 818B,A 


"VOLTA "VO" D 


TO 34: GOSUE S1iO 

16336) 
HTAE 8 
PRONTO!" 


NEXT 


16384) = 27 OR 
155 THEN 


"TRILHA "Tº D 
CALL 8537 


RE TURN 

DATA 1,96,1,0,0,0,653,3,0,129 
0,0,0,0,0, 96, 1,0,0,239,219, 
160,48, 169,3, O 217,8: 96 


240 
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== 4 








—————— a | 
= DE 


==. 


4 








GARANTIA TOTAL + MANUAIS INCLUSOS 


MS - HOT BIT E EXPERT - JOGOS EM FTA 


PA. DOE BALA Dentro ns ports 
Fat = PRADO ca primeda 
FAZ = SRD Escape Dos monica terre 


« HUNCHBCK. 
4 = MORSEMAN - Custado com 23 Sroagões 
EMA DECATHLON eres pras dmg 


PARÁ CADA 2 JOGOS COMPRADOS, ESCOLHA UM TERCEIRO INTERAMENTE pro 


GRATIS E AINDA GANHE MAS UM JOGO: PERAGO ESPACIAL 
| CEADO JOGOS EM FITA 


| FDA Pri ço ma Praca Og toa 


End CHOPRER STRIKE dera com hoscações 
FEM - TIME PATROL Sater de pra-cusmacas 


CP 400 - JOGOS EXCLUSIVOS EM FITA « LANÇAMENTOS 






1 - MODULE MAN 20d nota vos rica qua 
"; - Aerto pobcas 


« RACER 
| ma: WALKY se você não pode pede 
FIM + CYRUS - Cl manhor sacras já Sets para recem 


COMO COMPRAR: 


FB STAA TRADER Ager oo epoca 
FIM - MELTS WARENOUSE Cuedado péra md per de bad 
Ed 


PREÇO DE CADA JOGO- Cx5 50,00 


PARA CADA à JOGOS COMPRADOS ESCOLHA UM TERCEIRO INTEIRAMENTE 
GRÁNIS. E ANDA GANHE MAS UM JOGO: BLACK JACK 


CP 400» APLICATIVOS E UTILITÁRIOS 
SOLICITE CATÁLOGO 


EP 4 » UTILITÁRIOS EM FITA 


« QUPER SCREEM 5º» eso dga spo 
FS = TAPEDUPE - Supescopuador oe Wom 


APPLE H - JOGOS ESPECIAIS EM DISCO - CADA Cr$ 150,00 
DSO - KARATEÇA Lo cgro e emacs 

EA - COMIAM dest, tá qua go tira 

DS - GMOSTBUSTERS sema que po it 

COM - SUMMER GANES + Ursa eporem 

OMS CM ss,á porogritoo párd asus 

CO - SNTFÓE Páe reza de riam 









APPLE JOGOS EM DISCO DA PROMOÇÃO 


OO SESDBOSSEREEEEEES 





+ +DGOS EM FITA PARA TKS0X 


EMO. REVERS Comes Ego Dneto 

FR -GANÃO Joga ce ae 

FMM - Perl Detts ca am (ora 
FM - CTBERRATS Cosado som cs mes! 

206 - HORACIO E AS ARANHAS | Um gare» pago 
Fr JD TAM Ganha com tra 


E. 
| + Sm; 
EMT = SINUCA Pis my eita er dit am 
Fm. « MINED OUT Cosado com is mega 
| Fai « UR. MT pus Da nda 
- GOLFE Encarte et Eu Doo 
Perda diracestar à". pegos 
« SUMPING AMCK aqu 


JO COP qa tenas nó cedo 
GROUND ATACA Pengrery Caem Peteçã 
MINE Caso com ds moreira a rá 

- SEIDDAS ATTACK Erjidsd E. DCLÍOE das area 
LE É SJ 

“= FMONTER PILOT - Picte um F-15 Cage 

- TERROR DAKTIL 4D dação na tea pera 

* TRADER . Lito e ção nO mapaço 

ii + NE E Mec Ci aGADO COM à Ersta 


« BR LANCELOT Pegue ox cgi no casínio 
= MONSTER IN HELL + Ciucado com & fpero 
= ARCADA Soraia dt * dra ad ti 


NÃO RECORTE SUA REVISTA. FACA O SEU PEDIDO POR CARTA, RELACIONANDO SEUS DADOS E OS CÓDIGOS DOS PROGRAMAS DESEJADOS. AN 
A CARTA UM CHEQUE NOMINAL À ATI Editora Ltda. Av. Pres. Wilson, 165 grupo 1200. Centro, CEP 20,030 Rio de Janeiro - Rd As despesas do initial 


SOFTSPEED 


RUA GONZAGA BASTOS 112 - 20541 . RIO DE JANEIRO 


sal 


Feira Nacional de Acessórios, Suprimentos e Instalações para Informática 











24 a 27 de abril de 1986 
Palácio das Convenções do Anhembi 
São Paulo - SF 


| ENFASI 86 - Encontro Nacional dos Fabricantes e 
Fornecedores de Acessórios, Suprimentos e Instalações 
para Informática 


Apoio Oficial Organização e Realização 


SEI -. Secretaria Especial de Informática Apoio Editorial 

ANFORSAI - Associação Nacional dos MICR:; & 

Fornecedores de Suprimentos e SUP 
Acessórios para Informática. 


PPLE 


propaganda Pela 






Informações: Praça Pinheiro da Cunha, 195 CEP 04275 - São Paulo - SP Tels. (011/914-8325/9]4-609] 


Evento oficializado pelo CDC - Conselho de Desenvolvimento 
Comercial 
Ministério da indústria e do Comércio 








trs-80 trs-80 trs-80 trs-8 








Magqsorte 





Cristiano Antonio Dias e Creso Marcelo Resende de Macedo 


Que tal um programa que leve você até um cassino, sem correr o ris- 
co de ser flagrado em um lugar proibido? Esta é a finalidade do Magsor- 
te, programa criado para os compatíveis com o TRS-80 (com ou sem dis- 


pêra Jeso jees 


co), além de divertir o leitor, é claro! FICS DE 10 TELE 10 / FIO DE S TERES 7 E LE : 
O jogo possui grande parte gráfica, como símbolos para o resultado ?. 

etc. ue ... ge RR JRR e RO O cm a RO 
Dessa maneira, no início de cada partida, diga o valor das fichas que e is e a fm a 

deseja comprar (100, 25, 10 e 5). Quando o micro imprimir JOGUE, de mm 


pressione a barra de espaço e... torça. EP PE 
a ua a, 16 RAM PAGA -) 2 





Cristiano e Marcelo estudam no CBNB, na ilha do Governador. O primeiro é pro- 
prietário de um TK85 e já fez dois cursos em BASIC, além de realizar programas 
para a Promatel e Phone & Game; e o segundo usa um CP 500, tem curso de BA- Tela inicial do programa 
SIC e ainda cria programas para o Projeto Ciranda. 








U CLS PRINTOIZO,STRINGS(43,42);7FOR Ni=14 TO SOFNEXT Ná, NºGOTO 400 

] HICRO SISTEMAS St) FOR N=4 TO 400:NEXT:FOR N=1t TO Z20º:FOR T=14 TO S:PRINTOLI?,STS 
” “CRIS & MARC: "TEL 99P6-70877 "RIO DE JANEIRO - RJ CT) SPRINTOLSZ,STSCTIsSPRINTOLZ7,STSCTI;IFOR TH=1 TO SINEXTENEXT 
10 “MAQUINA DA SORTE VER 14.0 42/02/1981 T.NIRETURN 
20 '*COPYRIGHT (C) 1984, CRIS A MARC 240 1P$="“:IPS=INKEYSSPRINTOIA?, SINTO MUITO |! SUAS FICHAS ACM 
30 CLEAR 2000 BARAM. TECLE NEW LINE.“z:FOR Ni=1 TO SOsNEXT NISPRINTIIAS,STRIM 
40 NMHE="BONUS 6(63,32)s;ºFO0R Ni=t TO 252:NEXT NLSIF IPS="CTHEN 250 ELSE JO 
SO) GOSUE 430 270 FOR N=1 TO 10:IPRINTOLIS,00S,IPRINTRLSS,00%;5PRINTOLVO, 00%; 5 
40 DIM XC20),74720),7(20),xX8420),7520),28(20),FTSC7)SRANDOMSCLSE OR TM=1t TO 2DOsNEXTSPRINTOLIS,FTECKIsFPRINTOALSS,PTRCTIsSPRINTOLTS 
PRINT CHR$(23)2PRINTEPRINTSPRINTEPRINTIPRINTOMAQUINA DA SORTE DA FTScZ)s2FOR TH=1 TO SO:NEXT TH, NESRETUEBN 

CRIS & MARCUESTE(Li=0e VISTSCD)=7 em “ESTECII)="U q CESTECAI=O 280 CLSEsSPRINTOSA, STRINGS(S0,140)2PRINTOSS, CHR$(175H:PRINTODBS, CHK 

.UsSTECSi= una (176 )sPRINTOLOS,CHR$SL174)2PRINTOLOS, CHRÉC 176) 

70 008=STRIHOSC1LO,ID)4FHE=]HAHHC SAAS=STRINOSCO,176)7ABS=STRINGSC 290 PRINTOLIO,CHRECLPIISPRINTOLSP,CHRECSPLIZPRINTOLSS CHRELLPLDS 
B.140)2AC$=STRINGS(B,131)5COINS=SCHRS(103)+CHR$(107)+" “EFORN=1 T PRINTOLGOS,CHR$S(491) 

O Z:FOR Nt=t TO RIREADRDIFTSCN)I=FTECNI*CHRSCRD)ISNEXT Nº, NEFTEIT) 3D0 PRINTOLPA,STRINGECSO, LADISPRINTOLSA,CHRSCLIL)EPRINTAOZAS,CHES 
=CHR$(I7)+CHRECLPIDANHIACHASC191)4CHR$ICIO) (434)5PRINTOZII,CHR$C1I4)=PRINTOOSI,CHR$(14I1) 

BO BPE=STRINOL(ZO,472)+4” TABELA DE PAGAMENTOS “+STRINGS(Z0O,60): 340 PRINTASIZ.FTECS);O CsFTEC(S); FTS(6)4" +» PO0C sPRINTIAIO,| 
G04=CHR$(142)+CHR$(37)+"“ JOGUE +CHRS(I2)+CHR$(143) TECS)4” CFTSCS)4O CEFTSCS);O -5) 4DOVIPRINTOZÁB,FTECASS sFTh: 4 

S0.FOR N=1 TO ZO:READ XC(N)IZNEXTIG=20:FOR N=1 TO 2Z0ºREADYT(N) NEXT De CsETECSI4Y ) LACLPRINTONSA,TTH(4 144% sFTS( 4); FITA: 
:FOR N=1 TO 20:READZ(N)IZNEXT:FOR N=1 TO 207X$(N)=FTS(XCN)HDINEXTS - > 18º 
FOR N=1 TO 202:76(N)=FTECYCNIHISNEXTIFOR N=1 TO 2035Z28€(N)=FTSCZ(N)) 920 PRINTOS4A ,FTSCIIGPTE TI PTECA; | 44" sEPRINTASTA,T TI FTS 
:NExTIGOSUB 280 (3)sFTECO);”-) 147, 3PRINTSBOD,FTSCIDGFTSCL);' PAGA -1 Sr s2PRI 
4100 IPE=INKEYSISIPEs NTOPIO,FTEC 1): PADA x. “as 
40 PRINTOSO,STRINGE(2,32)4:PRINTO32I,60%, FIPSE=INKEYSSFOR Nt=1 7 330 PRINTOSZS, STRINGS(569,140),:PRINTSZOS ,STRINGÉ( SI 140 sIPRINTO 
O 4S0:NEXTIPRINTOGO, STRINGS(2,143), :PRINTOIZI,STRINGS(9,32),5FOR RIP. STRINGS (63,140) IPRINTOPAO, STRINGS (53,1440) FPRINTOAAD TR TO 

Ni=t TO 25:NEXTH42IF 1PL=""THEN 140 ELSE IFPOINT(122,7)=0 OR PO 4(63,140);31F PT=13 RETURN 
INT(2,24)=DTHEN PT=13:G0SUB 280 140 FOR NK=14 TO POzPRINTOIIS, AASPIPRINTAASS, AABpIPRINTOLZS, Abs: 
1720 PRINTOSO,STRINOS(2,32),3PRINTOZSO, STRINOS( 192,92), e6=6+15C=€ PRINTOLIS, ABSPSPRINTOLSS,ABTIPRINTOL/S, ABSFEPRINTILIS ALT SPRIN 

1+Esb=b+EsEsOsWU=CePIPRINTOZOS, "CRS “ssPRINTUSINOC HANNAH hdi; TF TOALSS, ACE: SPRINTOLZS, ACSGENEXT NX 

Cs-t THEN 260 350 FOR N=1 TO 20:PRINTOLIS, XECNIFIPRINTOLSS, TSCNOGSPRINTOLTS, 0 
130 PRINTOI04,” “ssPRINTUSINO FHSsC;SPRINTO -> FICHAS RESTANTES (N)z3FOR T=1 TO 7ENEXTIPRINTOL9S,00%;SPRINTOLSS, 00%; 2PRINTILTS,O 

"e SPRINTOSLS, “FICHAS JA JOGADAS -)“;SPRINTUSING FM$;6;3PRINTOIS 0OS42:NEXT N 

FICHAS GANHAS -)" EPRINTUSINO FHSpuysPRINTAIZO, 3460 PRINTOLIS,FTSCS)sSPRINTOASS,FTSLS)ssPRINTOITS,PTECSSpSPRINTO 
JOGA“ s0C%s 256,7)1)))) BOLÃO, COM ESTA JODADA VOCÊ GANHA * <UD + E Zi 

140 FOR TX=1t TO S:PRINTOLIS MAS IPRINTOLSS, AAS;IPRINTOLZS, ARTE SP (CCC EPRINTO4AOS, TABELA DE PAGAMENTOS" FOOSUB 250 
RINTO19IS,ABS;2PRINTOSSS, ABS, IPRINTOL7S,ABS;SPRINTOLIS,ACSsIPRINT 370 PRINTO?ZSS,STRINDS(192,32);5PRINTOZSS, PARA COMPRAR FICHAS DE 
015S,9CE; SPRINTOS7S,ACS; NEXT TE 100 TECLE 1400 / FICHAS E 25 TECLE 257, :PRINTSAZO, FICHAS DE 10 
[SO FOR N=14 TO Z0:PRINTOL9S,00%, 3:PRINTOLSS,00%;:PRINTOL7S,00%,5P TECLE 140 7 FICHAS DE 5 TECLE 5 7 E NEW LINE”: 

RINTSLIS, XECNIsSPRINTOASS, YECNIFSPRINTOL7S,Z5(N),aFOR T=1 TO 75W 380 PRINTO414,7"s 2 INPUT CCSPRINTO4ASO, STRINGS 53,1401% ETF Cit 
EXT T:NEXT N:PRINTO1LI9S,00%:FPRINT9OLSS,00$S, :PRINTOS75,00S; OR CC=5 OR CC=25 THEN C=40 ELSE C=50 

140 FOR N=4 TO GIPRINTOLIS,AASEIPRINTOILSS, AASP FPRINTOLZS, AASs PR 990 IF CC<)400 AND CC<>S AND CEcH0 AND CCc+425 THEN 3970 
INTO13S,AB%; SPRINTOLSS,ABS;IPRINTOS/5S,ABS;:PRINTOSIS, ACSFIPRINTO 400 IF CC=1D00 THEN CC$8=" CR$ 14007:P=100:ELSEZIF CC=25 THEN CC% 
([5S, ACE: SPRINTOLZS, ACE; INEXTEIPRINTOLIS, 00%; PRINTOLSS, 00%; 35PRINT CR$ 25C2P=P5:ELSESTF CC=40 THEN CCt=" CRã LOCRP=10SELSEZIF Cl=S 
0175,004%; THEN CC$=" CR$ STrP=S 
170 N=RNDCGISPRINTOLIS, XECNIsEX=XIAN)ISFOR N=1 TO PEPRINTOLSS,AAS; 440 PRINTA?2SSA,CHR$(30!s *PRINTAIZO, CHRECIO) pPRINTOSOA,CHREÇIOS; 
sPRINTOS/S,AAS;SPRINTOLSS, ABS; IPRINTOSZS, ABS; FPRINTOSSS, ACS;IPRI 470 PRINTO3IP," TECLE NEM LINE PARA JOGAR ; RETURN 
NTD175,ACbrINEXTIPRINTALSS,00%;PRINTÕOSL75,005; 430 CLSSPRINTOMAQUINA DA SORTE DA CRIS & MARI «CHRE( 1405; CP 
180 N=RNDCGIIPRINTOISS, TECN)DsSY=YCNÍSFOR Not TO LOFPRINTOL7S,AAS - 500 “SPRINT STRINGS(S4,1971)HsSTRINGSC10,17014, 5 TROFESPRINT 
FSPRINTOLZS, ZSCN)sSPRINTOSZS, ACSGINEXT N:PRINTO175,00S;EN=RNHD(G) O SEU COMPUTADOR PESSOAL SPRINTSIGA, ESTE 1060 SIMIILA MA 
SPRINTOLZS, Z5(N)p3Z=7(N> MAQUINA REAL. AS DIFICULDADES PARA 
190 IF X=6ANDY=6ANDZ=4 THEN E=200:6070210 ELSE IF X=SANDY=SANDZ= 440 PRINT"CGANHAR TAMBEM SAO REAIS. NÃO ESPERE joGaR 1 OM 
Ss THEN E=100:60107140 ELSE IF x=4ANDY=4ANDZ=á THEN E=18:60T02140 E VEZES E GANHAR MUITO. FIQUE TENTANDO; SE HOJE FOR SEU DIA D 
LSE IF X=4ANDY=4ANDZ=4 THEN E=10:00T0210 ELSE IF X=3ANDY=JANDI=á E SORTE, VOCÊ VAI GANHAR UMA BOLADA. SPRINTSZAS, TECLI ENTER 

THEN E=14:60T02140 ELSE IF X=3ANDY=3ANDZ=3 THEN E=14:G0TO 2140 » PARÁ COMECAR”; 

200 IF X=2ANDY=2ANDZ=4 THEN E=40:60T0210 ELSE IF X=2ANDY=2ANDZ=2 450 PRINTIAB4G, STRINOS(28,131);:PRINTOBPS,STRINGECSA, 1941; 

THEN E=10:6070240 ELSE IF X=1ANDY=4 THEN E=5:G0TOZ1D ELSE IF X= 440 P=OsSFOR N=1 TO 417:PRINTOAPR+4P , CHRECL79),2PRINTOBSZ+*P.CHRECAI 
1 THEN E=2:60T0210 ELSE 100 )),2P=P+1 NEXT NºPRINTOAPSA, STRINOS(3,143I) TPE=INKECRITO 1FS I 
2140 IF E=200 THEN 290 ELSE GOSUB 270:PRINTOIZO,STRINGS(64I,32),51 HEN 4460 ELSE RETURN 
F E=100 THEN PRINTOOS6,” * 100 e PREMIO ESPECIAL « 4100 « PRE 470 DATA 32,176,194,1764,194,1764,134,32,32,32,3IC,IE,IC,TE,Ã 12,3 
MIO ESPECIAL = 1400 « “ssPRINTO3BA,“—-) PAGA 100 FICHAS PAGA 2,140,179,179,179,179,140,32,32,176,140,131,131,140,17/6,39,32,17 

100 FICHAS PAGA 1400 FICHAS €- "s42:G0TO 240 7,.1797,42,42,1797,179,92,183,179,472,42,42,402,177,107,30,1914,177,17 
270 IF E<LOOTHENPRINTOIZO, STRING$S(43,42); 3PRINTOGHA,STRINGS(44,3 1,92,1914,179,191 
2) sPRINTOIHA, PAGAS)“ sEs3FOR N=1 TO ESPRINTCOINS;SFOR NN=1 TO 7 480 "= — — — . -— Oo = = 
Ss:NEXT NNºSNEXT NºTF E=10 THEN PRINTOOSS, BPE;:GOTO 100:ELSE 100 490 * PAYOFF CONTROL DATA HERE 
7230 PRINTO256,7* GANHOU es GANHOU e. GANHOU “e GâNHOL S00 DATA 1,2,5,6,4,9,1,2,5,6,3,1,7,5,4,4,2,5,6,3!" MHEEL HM 1 

se GANHOU «7sPRINTOIDA,C BOL AO «200 * BOLÃO E: S10 DATA 4,4,2,4,5,9,4,6,2,4,1,5,4,1,3,4,6,5,4,727" UHEEL M 
00 « BOLAO “ 200 «",2:G0SUB 250 s20 DATA 9,2,9,7,2,3,7,4,3,7,9,2,7,5,9,7,3,2,7,65* UNEEL Hd 9 


240 FOR N=1 TO 25:PRINTOI2O,STRINGS(43,32);:FOR Níi=1 TO 2S:INEXT: 


Magsorte 
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zx81 zx81 zx81 zx81 








Jogo da velha tridimensional 





Daniel Quadros 


Neste programa, você joga contra um 
computador em um cubo 4x4x4, pro- 
curando colocar quatro bolinhas( o Jem 
linha e evitar que seu adversário ponha 
quatro letras X também em linha. A ma- 
nipulação da tela é feita em BASIC e a 
estratégia do equipamento em Assem- 
bler, o que permite unir alguns peque- 
nos efeitos visuais a um bom ritmo de 
jogo. Apesar da simplicidade das regras, 
o Jogo da velha... exige astúcia e uma 
boa visão espacial. 

O conceito básico deste jogo provém 
de um programa de demonstração da 
HP. O carregador hexadecimal é uma 
adaptação do programa de Tadeu Cu- 
ringa da Silva, publicado em MS nº 40. 
A rotina da listagem 2 é a do artigo 
“Um REM com infinitos bytes”, de 
Daniel Hendrick (MS nº 30). 


ENTRANDO COM O PROGRAMA 
O primeiro passo é digitar a listagem 


1, que é um pequeno carregador hexa- 
decimal. As duas listagens em Assem- 


a 


00000000 


76 
00 
00 
oo 
(816) 
00 
oo 
00 
oo 
0 


6188899996 66 


882888898664 


aSABASESSSSSSSSN 


SSnBEHELNEGABUSUSaAnaNSESSESSSSA 


28 
ZA 
2C 
ZE 
08 
28 
os OD 
29 2D 
OA OE 
Listagem 3 
40 


eu - 
O 
ee 


o 
TO LEN A$/2 
+CODE AStz+I-1)+C0OD 


T 
17 =” CK (35 
| EE o Ck=5 THEN LET E=E+sLEN As 


2 
190 GOTO 40 





Listagem 1 


01 00 03 21 A6 40 ES CS 
CD 9E€ 09 Ci ZA 7F 40 09 
22 7F 40 ZA 29 40 09 22 
29 40 Ei 36 1B 23 OB 79 
BO 20 FO C9 = 657 





Listagem 2 


bler, deste artigo, possuem blocos em 
hexadecimal com três campos: o endere- 
ço, os dados propriamente ditos e uma 
soma de controle. Ao se executar o car- 


16786 
16794 
16802 
16810 
16818 
16826 
16834 
16842 
16850 
146858 
16866 
16874 
1646882 
14890 
16898 
16906 
16914 
14922 
16930 
146938 
16946 
16954 
16962 
16970 
16978 
16986 
16994 
17002 
17010 
17018 
17026 
17034 
17042 
17050 


ARBABUARARAM 








regador, ele pede o endereço inicial do 
bloco, que é o mesmo da primeira li- 
nha do bloco. Em seguida, ele apresenta 
o endereço da linha e espera a digitação 
dos dados, que devem ser inseridos sem 
os espaços presentes nas listagens. Após 
a entrada dos dados, é pedida a soma de 
controle. Se tudo foi digitado correta- 
mente, o próximo endereço é mostrado; 
caso contrário, aparece a mensagem 
ERRO e a linha deve ser redigitada. 
Após a última linha, entre com a letra S 
para parar O programa. 

Exemplo: A digitação do primeiro 
bloco (listagem 2) começa da seguinte 
forma: 


Tela Digite 
ENDEREÇO INICIAL? 16514 <NL> 
16514 — 01000321A640ESC5S <NL> 
16514 — 010003214A640E5CS5 = 
693 <NL> 


Entre agora com a listagem 2, conforme 
descrito acima. Em seguida, execute a 
rotina carregada: digite RAND USR 
16514 e NEWLINE. Se você listar o 
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eo 
32 
s2 
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A e 


Cit UA 
& 


Do 
MOMO Cu DM 


q pf o 
ba tSODS 


1o AB 


ER 
Bo 
0 
So 

so 


munmnoanos 
moda + 
Ed 


THEN GOTO 
B+20+PEEr 
o 
Tr 


o 
o 


Doda Do Garras 


2 


[e] 
ettu to = 
a 


SO 66006 


Do 
rim ai 


HA HA Had 
no 


Jem 


Juro 


Son E cabQluir- 
Os 
OG 


ES 50 


Co Lo fo fis 





(16524 +1) 
+ PRINT &T 
PRINT AT 


ua 


e Ty 
96 


E 
o] 


RIGIRIRIM, 


REMO 


420 GCOSUB 
430 PRINT 


SOSUEB 

PRINT 

GOSUE 7000 

IF Ags=' RUN 
STOP 

REM INICIA TABULEIRO 


1020 FOR I=1 TO 22 











1030 cr 
manda d] 





1040 NEXT 1 
1050 PRINT AT 2,2," 


1060 PRINT AT S,3;" 
EFrFrEEEEO 


Listagem 4 


programa, verá que a linha 1 foi amplia- 
da. Para que esta linha não atrapalhe as 
próximas digitações, entre com POKE 
16419,10 e NEWLINE. 

Entre agora com a listagem 3, da 
mesma forma que você entrou com a 2. 
Você pode (e deve) parar algumas ve- 
zes o programa (entrando com S) e sal- 
vá-lo em fita. Para continuar, basta en- 
trar com o endereço da linha seguinte a 


m 
5 
6 3 
I 


dbDao UH 


[1 
Ei 
fu 
[ul 


Po++4++ E 

No++++ 

WU ++++ 
ME ++++ E 

Po++++ E 

po ++++ 

o ++++ 

E ++++ E 


TÚ 


SEU LANCE 
Figura 1 — Tela do jogo 
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que você parou. 

Finalmente, entre com a listagem 4. 
Note que o programa anterior (listagem 
1) é inteiramente sobreposto, exceto a 
linha 1. Cuidado com os espaços (não 
reversos) nas linhas 50, 130 e 4010. 


JOGANDO 


Para começar o jogo, digite RUN e 


TRICIMEHNSIOHAL 


Li 
fit 
[51 


++++ 

po++++ & 
É Ci fit ps 
++ ++ 
++ ++ 

Eo++++ É 


[ul 


1 
+ 
+ 
+ 
+ 
dps 


NEWLINE. O programa irá perguntar se 
você deseja começar ou não. Como já 
foi dito, os lances do computador são 
indicados por X e os seus por( O ).Para 
entrar com o seu lance, entre com três 
dígitos de 1 a 4, correspondentes ao Nr- 
vel, Linha e Coluna do lance. Os núme- 
ros na tela facilitam a localização (veja 
figura 1). 

O jogo continua até que acabem as 
casas (empate) ou alguém consiga colo- 
car quatro símbolos em linha. Neste úl- 
timo caso, o micro indica quais os sím- 
bolos em linha, fazendo-os piscar qua- 
tro vezes. 

Cuidado! Existem outras maneiras de 
colocar quatro pontos em linha do que 
parece à primeira vista. Por exemplo, 
atenção para as diagonais como (1,1,1), 


(2,2,2),(3,3,3) e (4,4,4). Boa sorte! 
E) 
e 





Daniel Quadros é formado em Engenharia 
Elétrica (Eletrônica-Digital) pela Escola Poli- 
técnica da USP. Trabalha na área de desenvol- 
vimento de software na Scopus Tecnologia, 
desde 1982, sendo atualmente o responsável! 
pelo software básico do micro Nexus 1600. É 
usuário de um TK82C, para o qual vem desen- 
volvendo vários programas, principalmente 
jogos. 


0; 


: ANOS 


[| SUPRIMENTOS 
a; DE QUALIDADE | 


Após 5 anos em São Paulo 
agora também no 
Rio de Janeiro 


Formulários contínuos 
Fitas para impressoras 
Diskettes, mini diskettes 
Etiquetas auto-adesivas 
Arquivos para diskettes 
Streamer 5, 7, 20 e 190 mb 
Fitas magnéticas 

Pastas para formulários 


PRACPD 


Suprimentos para Processamento 
de Dados Ltda. 


Rio de Janeiro (021) 232-6179 
São Paulo (011) *263-6644 
Telex (011) 38045 PRACPD Br 








trs-80 trs-80 trs-80 trs-8 








Ditado 





Afonso José Simões de Lima e Hademilton Viali 


É um micro-sintetizador? É um micro-ventroquo? É um 
micro-truque? Não, é a sua própria voz, sem sotaque e sem 
tom metálico. 

Ditado é um programa simples, mas de grande eficiência e 
importância no uso de seu micro, para fins educacionais. Se- 
melhante a programas desenvolvidos para o TRS-80 Color, ele 
destina-se, todavia, ao CP-500 e compatíveis. 

Pelo nome do programa, você já deve ter percebido seu se- 
gredo: ele fala, ditando as palavras para você digitar. Com isto, 
sua aplicação é ideal no aprendizado de idiomas, por exemplo, 
ou mesmo no auxílio à alfabetização de seu filho. 

O programa básico permite dez palavras. Essa especificação 
é interessante, particularmente para as crianças, para não can- 
sá-las. Como um programa já prevê a interligação de outros, 
logo em seguida, com diferentes palavras, parece que essa ca- 
racterística lhe dá maior flexibilidade. Mas, se você quiser, 
pode aumentar o número de palavras (linhas 50 e 60), alteran- 
do, também, o valor de X na linha 70, 


GRAVANDO O PROGRAMA 


Embora Ditado seja um programinha de fácil digitação (o 
que já é um grande estímulo!), é preciso muita atenção para 
os trabalhos de gravação de sua voz. Atenção para as instru- 
ções! 
|, Escreva em uma folha as 10 palavras que serão inseridas nas 
linhas 50 e 60; 

2. Digite o programa; 

3. Utilize todo o lado de uma fita cassete, desde o início. Digi- 
te CSAVE “Ditado” e pressione ENTER; 

4. Uma vez transferido para a fita, desconecte os pinos EAR e 
MONITOR (mantenha só o pino MIC conectado); 

5. Pressione as teclas PLAY e REC do gravador, preparando- 
o para gravar sua voz; 

6. Digite RUN e pressione ENTER. O programa começa a ser 
executado, e o gravador já estará gravando. Diga junto ao mi- 
crofone: “Escreva Tatu” (ou a primeira palavra de sua lista); 
7. Ao aparecer “Escreva?” na tela, digite “Tatu” e pressione 
ENTER; 

8. Repita o mesmo procedimento com a palavra seguinte e as- 
sim sucessivamente; 

9. Após a última palavra, vem a pergunta: “Você quer conti- 
nuar (S/N)?”, Como ainda não há nenhum outro programa gra- 
vado, em seguida, digite “N” e mude as palavras das linhas SO 
e 60; 

10. Conecte os pinos EAR e MONITOR e siga os mesmos pas- 
sos, a partir do item 3. 


42 


UTILIZANDO O PROGRAMA 


1. Ponha o gravador na posição PLAY e a fita no início; 

2. Digite CLOAD e pressione ENTER; 

3. Desconecte o pino MONITOR, para se ouvir o som do gra- 
vador, e ajuste o volume; 

4. Digite RUN e pressione ENTER. 

Agora, para que você faça uso imediato do Ditado, utilize as 
séries de palavras que sugerimos nas figuras 1 e 2. A primeira é 
para apoio à alfabetização de seu filho e a outra para aprimorar 
seu inglês. A parte de alfabetização traz as primeiras palavras 
que nossas crianças aprendem na escola, e a de inglês procura 


TATU, TUA, ATA, TEIA, TATO 
TIA, TETO, TITO, TUTU, TITA 


PATO, PAPAI, TIPO, 
PITO, APETITE, TAPETE, 


PAPO, PIPA 
TAPA, PATA 
SAPO, SOPA, SUA, SEU, SIM 

SAPATO, SEI, SETA, SOU, SAI 


LATA, 
LEITE, 


TELA, LUA, 
PULA, SELA, 


SALA, ELE 
ALI, LULU 


VALETA, VELA, 
VOTO, EVA, UVA, VILA, 


IVO, LUVA, VIVO 
VALE 


CAPA, 
COLA, 


CAVALO, CALA, SACOLA, SUCO 
CAIU, CACO, CACAU, CAMELO 


DEDO, 
DADO, 


DITADO, DIVA, CADA, DIDI 
EDU, DATA, CIDA, COCADA 


RAIO 
PUIVA 


RALO, 
RATO, 


RUA, RODA, REI, 
RETA, REMO, ROUPA, 


MATO, 
POMADA, TOMATE, LIMA, 


CAMA, MACACO, MULA, MALA 
LAMA, MACA 


BEBA, BATATA, BOCA, BOTA, BALEIA 


OBA, BOI, BELA, BULE, BODE 
Figura 1 
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- HOUSE, KNIFE, OVEN, TOWEL, SPOON 
DESSERT, LUNCH, MIRROR, BATHROOM, CUPBOARD 


« SCHOOL, PENCIL, DRAWING, RUBBER, STUDENT 
SUBJECT, TEACHER, DEAN, BLACKBOARD, LIBRARY 


- STREET, .CAB, BUS, RAILROAD, GAS STATION 
CHURCH, BUILDING, AVENUE, ROAD, BRIDGE 


PAINTING, MUSIC, ARCHITECTURE, DANCING, PLAYING 
MUSEUM, PORTRAIT, PICTURE, SCULPTURE, PHOTOGRAPHY 


« MOON, SUN, EARTH, SATURN, GALAXY 
OCEAN, MOUNTAIN, ISLAND, CLOUD, FOREST 


WATERMELON, APPLE, PEARL, ORANGE, AVOCADO 
COFFEE, RICE, SUGAR, MEAT, CORN 


-« NEWSPAPER, ARTICLE, PRESS, COMMENTARY, HEADLINE 
SWIMMING, GYMNASTICS, SOCCER, FOOTBALL, BASKETBALL 


« FAT, WEAK, THIN, TALL, SHORT 
LOOK, LISTEN, EAT, SMELL, CATCH 


« DOG, HORSE, TURTLE, LION, ELEPHANT 
MONKEY, MOUSE, SNAKE, BIRD 


CHICKEN, COW, COAT, TIGER, BEAR, 
BUTTERFLY, WHALE, SHARK, FISH, ALLIGATOR 


Figura 2 


ampliar o vocabulário do leitor, com palavras usuais, mas que 
nem sempre são de seu conhecimento. Contudo, lembre-se: 
você não precisa se limitar ao inglês. Espanhol, alemão, fran- 
cês... Se depender do seu micro — e deste programa —, em 
breve você será um verdadeiro poliglota! ãá 

e 





Afonso José Simões de Lima é advogado da TEL ESP na Região Centro- 
Sul, sediada em Campinas; e Hademilton Viali é Engenheiro Eletricista, 
Chefe do Distrito de Campinas, da TEL ESP. 


TUDO PARA SINCLAIR/SPECTRUM NA: 


PRAIA DE ICARAÍ, 211 / Loja 03 





STUOR 


INFORMÁTICA 


SOFTWARE ZX SPECTRUM*/ TK 90 X**: 


NITERÓI - RJ 


SOFT SPECIAL SYSTEMS — Lançamento exclusivo cõo Título Tipo Kb 
(Programas é manuais em português) SJ027 Time Bomb intentit 16 
cõo Titulo Semilar estrangeiro Kb SJ0Z28 Bem Bovver ação as 
C:$ 100,00 SJ029 The Birdk& TheBee ução as 
SAOO! Banco de Dados VU File 16 S4030 World Cup Football esportes ss 
C:$ 80.00 ' Blade Alley as 
54003 Vão Simulado 747 Flight Sumulator 48 SJ032 Pole cortas 48 
55001  Pércim Scuba Dive se tversão para Portugal! 
Cr$ 70,00 é 
SJ002 Asteróides Meteo: Storm as ipa ia VERSÃO ORIGINAL — Lançamentos — 
100, 
J0GOS VERSÃO ORIGINAL — Lançamentos — Cr$ 70,00 CÓD. Titulo Tipo Kb 
cõo. Titulo Tipo Kb Pando Full Compiler utilitário e 
SJ004 Spectral Invaders 16 SF002  Disassembier utilitário 1 
SJOOS The Warlock of Firet pra ss SFo03  Disassembler 1] utilitário 16 
84007 Sports Hero esportes 4s — da 
SI008 Dest ação 16 J0GOS VERSÃO ORIGINAL — Consagrados — Cz$ 50,00 
rd Gulp Men ação 15 cõo. Titulo Tipo Kb 
' Phgenia ação 16 SJ033 Jump Challenge ação as 
SJ011  Zzoom ação as SJ034s High Noon ação as 
$J012  Tiwusta ação 48 SJ035 Invasion Force ação 16 
84013 Enduro corrida carro 16 ba Dive ação as 
SJ014 Loop Frog ação 16 84097 Full Throrte corrida moto “8 
84015 Disco Don ação as netrator ação as 
SJ016 Time Gute ação as Ss039 x ação 16 
$J017 Sack & The Bearstalk ação 4 54040 Terror Daktil 40 ação as 
SH01B  Driller Tonks ação «8 SJ041 Ad Astra ação as 
SJ019  Golatic Raider ação as 53042 Night Gunner ação «8 
Apple Jam ação 16 Arcadia ação 16 
SJ021 — Momter Muncher ação 16 Maziacs ação as 
Jungie Fever ação 45 S4045  Piromania ação aB 
84023  Uiveln ação a8 ação 16 
Ss024 Football Manager estratégia as 59047 JD Starstrke ação a8 
SJ025  Nimbie infantil 16 Son of Blagger ação as 
SJ026  Pakacuda ação ag SMS  Automania ação ag 


SessahanaSacanfnaRdann os E 


54074 
SJ075 
54076 
54077 
SJ078 


Po 


SJGê? 


DELE 


cos sumnm= 


TEL.: (021) 717-1700 


CLS 
PRINT CHR$(23) 
PRINT 
PRINTY 
PRINT 
PRINTYMICRO SISTEMAS” 
PRINT 
PRINT“Afonso J. Simoes de Lima” 
PRINT E 
PRINTYE Hademilton Viali“sFOR L=1 TO 20007NEXT L 
"Este programa destina-se ao CP-500 e micros compativeis 
DATA HOUSE,KNIFE, OVEN, TONEL , SPOON 
DATA PENCIL,MIRROR,MOON, SUN, SKY 
X=16 
CLSIPRINTO44,“D I TA DO” 
PRINTOL0B,“ ===========" 
IF P=X THEN 490 
READ AS 
OUT 236,2 
FOR Z=1 TO 40007NEXT 
OUT 236,0 
P=P+1 
INPUT ESCREVA” ES 
IF BS=AS THEN GOTO 170 ELSE GOTO 270 
IF B$=AS THEN C=C+1 
PRINTVOCE ACERTOU “C” EM “P” PALAVRA(S)T 
IF C=X THEN GOTO 370 
"RESPOSTA CORRETA 
OUT 236,2 
FOR Z=1 TO SO00:NEXT 
OUT 236,2 
IF P=X THEN GOTO 426 
Goto Be 
"SEGUNDA CHANCE 
FOR Z=í TO SOGINEXT 
INPUT" TENTE DE NOVO! ESCREVA“ GBS 
IF B$=AS THEN PRINT"CORRETO!” 
IF B$=AS THEN GOTO 3956 
PRINT 
PRINTONAO. .. 
PRINT 
PRINTOO CORRETO E'..."”AS 
IF B$=AS THEN C=C+1 
PRINTEPRINTOVOCE ACERTOU “C” EM “PY PALAVRA(S)” 
IF C=X THEN 380 ELSE 400 
FOR D=í TO 200 STEP 5 
FOR Z=1 TO 30007 NEXT 
IF P=xX THEN GOTO 430 
Goto 80. 
PRINTIPRINT:INPUT“VOCE QUER CONTINUAR (S/N) 4YS 
IF Y8=“N” THEN END 
CLSIPRINTO400, “APOS CARREGAR, DIGITE "RUN '“ 
CLOAD 


sua DITADO wuma” 





CEP 24.230 


Título Tipo Kb cõn. Titulo Tipo 
Booga-Boao ação as 54106  Tormado Low Level ação 
Prvtron ação as 
ate ação p-- 
ati ação UTILITÁRIOS / APLICATIVOS VERSÃO ORIGINAL 
JD Tank Dust ação 48 Consagrados — Cz$ 70,00 
The Pyramid ação ss 
Decathlon 1? esportes as cõo Titulo Tipo 
Decathlon 2 esportes as SF0oos  MCoder 2 utilitário 
30 Deita Wing ação ag SADO? VU File aplicativo 
coreto redação po img vuao aplicativo 
é VU Cate ticatr 
River Raid ação as oo 
cer Mona epart es = JOGOS VERSÃO ORIGINAL — Ofertas — Cr$ 30,00 
r 
a tg a  CÔD Titulo Tipo 
Fred ação 48 SJ086 Master Chem tabuleiro 
det Pac ação 16 SJ087  Buckgammon tabuleiro 
Caveion ação as SJo8s  Chequered Flag corrida F1 
ação 48 SJ089 Jet Set Willy ação 
Tutankhamun ação aa SJo90 Pes ação 
Meteor Storm ação 16 54091 Android 2 ação 
Escape ação 16 SJ4092  Manic Miner ação 
30 Combat Zone ação as SJO93 Mr Wimpy ação 
Porty Painter ação 16 SJ094 30 Serddab Attack ação 
r Loncetot ação 16 Sos 30 Am Artack ução 
Eskimo Eddie ação as SJOO6 Jumping Jack ação 
ação as SJ097 Astro Blaster ação 
Kokoton Wilf ação 45 SJoa8 | tulhar 
Special Delivery ação 48 SJs099 Pinball destreza 
Lary Jones ação 48 SJ100  Spoce Raiders ação 
Harrier Artack ação 45 $4101 Hungry Horace ação 
Sabre Wulf ação “a SJ102 Horace & Spider ação 
Kosmic Kanga ação 43 SJ103 | Horace Goes Skiing ação 
Worse at Ses ação sa SJ104 Cooke ação 
Chuckie com ação 48 SJ105 Simulador de Vôo simulação 
747 Fight Simulator simulação as (versão pars Portugal 


JPECAL 
| YSTEMS o 


4 PALAVRA FIMAL 





16 


ed 
cal 


BEsoaaaasBB5BEBEBBSES T 


TODOS ACOMPANHADOS DE MANUAIS EM PORTUGUÊS. Na compra de 3 programas receba grátis uma fita cassete virgem Soft Loader C-20 da Special Systems (esta promoção 
não é válida para os programas em oferta). Gravações garantidas por 30 dias a partir da data de atendimento do pedido quanto a defeitos de fabricação. 
COMO COMPRAR PROGRAMAS: Faça seu pedido por carta, relacionando o código dos produtos desejados, quantidades, valor unitário e total por produto. Ao terminar feche um 
total geral. Nossos preços para PROGRAMAS já incluem as despesas postais. Não se esqueça de identificar-se e ao local para remessa. Anexe cheque nominal à ATIEDITORA LTDA,, 


Av. Pres. Wilson 165 grupo 1210 - Centro - CEP 20.930 - Rio de Janeiro - RJ. Seu pedido será prontamente atendido logo após a liberação pela rede bancária do valor correspondente. 


HARDWARE TK 85**: REDEFINIDOR DE CARACTERES SPECIAL SYSTEMS MOD. FHL-1K [testado pela Equipe Micro Sistemas e analisado na edição 51, dez. 85). Cód. 99 FHL 


“.. 5 OTN's (a postagem do pedido define o valor da OTN a ser aplicado). Só para TK 85**, Despesas postais não incluídas. Solicite informações adicionais à STOP Informática. 


SOFTWARE SINCLAIR: Absolutamente TUDO já probluzido para a linha e lançamentos inéditos. Novas versões, melhoradas, corrigidas e/ou ampliadas. Software redefinido para 
máquinas que se utilizem do Redefinidor de Caracteres Special Systems ou adaptações compatíveis. Solicite nosso catálogo. 
SUPRIMENTOS: Fira cassete virgem Soft Loader C-20 específica para micro computadores (em oferta). Cód. 20 KSL ... Cz$ 14,00 a unidade. Quantidade mínima de 12 unidades por 
pedido. Despesas postais não incluídas. Pedidos diretamente para a STOP Informática. Atendimento pelo reembolso postal. Solicite nosso catálogo de suprimentos. 


EM BREVE DANDO SUPORTE ÀS LINHAS MSX E COLOR. 


* Marca registrada Sinclair Research Lrd. 


** Marcas registradas Microdigital Eletrônica Ltda. 
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Raramente as mensagens de erro dadas pelo seu micro são capazes de 
ajudá-lo a identificar a origem do problema. Agora, com este 
programa, seu Color lhe fornecerá informações bem mais completas. 





no Color 


Cláudio Costa 


rrar é humano. Que o digam os computadores, ao se 
verem às voltas com instruções que mandam ler arqui- 
vos que nunca foram abertos; pedem que se vá para 
uma linha que não existe ou que se retorne de uma 
sub-rotina na qual jamais se entrou; tentam operar com matri- 
zes não dimensionadas; destoam das regras de sintaxe. . . É de 
levar o mais poderoso dos chips de última geração à “loucura”, 

Isso só não acontece graças às rotinas de tratamento de er- 
ros, que nesse instante interrompem o que estiver sendo feito 
e informam ao humano usuário a ocorrência de algum engano. 
Do ponto de vista da máquina, a importância de tais rotjnas é 
óbvia, pois as consequências de se continuar o processamento 
em tais condições seriam, no mínimo, imprevisíveis. Do lado 
do usuário, no entanto, as coisas são bem menos siiples; 
por serem bastante genéricas, essas rotinas dificilmente se mos- 
tram capazes de ajudar na identificação dos procedimentos 
que resultaram numa mensagem de erro; raramente elas ofe- 
recem indicações mais precisas sequer sobre a posição onde 
determinado erro ocorreu. 

O TRS-Color não constitui exceção à regra, mas, em todo 
caso, é possível contornar esse problema dando uma mãozi- 
nha ao sistema operacional para melhorar suas rotinas de 
error trap. Vejamos como. 


ROTINAS DE TRATAMENTO DE ERROS DO BASIC 


Um erro, para o BASIC, pode ser traduzido de várias ma- 
neiras, das quais a mais comum é a discordância dos parâme- 
tros funcionais ou de sintaxe de uma determinada instrução. 
Uma das principais tarefas do sistema operacional, ao executar 
um programa em BASIC, é checar se esses parâmetros estão 
corretos. No TRS-Color isto é feito comparando-se o texto 
da instrução presente na memória, à medida em que vai sendo 
lido, com os parâmetros especificados pela rotina correspon- 
dente na ROM. 

Com relação às regras de sintaxe, em particular, não há 
como evitar algumas idiossincrasias do pessoal da Microsoft; 
por exemplo, PRINT TAB (10); “X” (observe que há um espa- 
ço entre TAB e o purêntese) não imprime um “X” na coluna 
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Mensagem de erro 


10, enquanto que algo como PAINT Q (20, 30), por estranho 
que pareça, funciona normalmente. 

A tarefa de “ler” o texto do programa BASIC fica a cargo 
de uma rotina de não mais que 12 bytes, conhecida como 
CHRGET, cuja listagem deve parecer familiar a quem já me- 
xeu com micros da linha Apple: 


9F INC SA7 * INCREMENTA BYTE SA7 
Al BNE SAS * SE NÃO FOR ZERO, SEGUE P/ SAS 
AJ INC SA6 * CASO CONTRÁRIO INCREMENTA SA6 


AS LDA S2DD * A PEGA UM BYTE DO PROGRAMA 


— 


A6 JMP SAALA * CONTINUA O PROCESSAMENTO 


Uma chamada do tipo JMP ou JSR $9F incrementa 
CHRGET e carrega no registrador A um byte do programa 
BASIC, que pode ser interpretado como um token, o código 
de um caráter etc. Os bytes $A6e $A7, por sua vez, indicam 
a posição corrente do programa, o que além de servir de refe- 
rência para o interpretador, é usado nos testes de sintaxe de 
várias instruções. Vamos ver, por exemplo, o cheque de sin- 
taxe por vírgula: ele é requerido por diversas funções do 
BASIC — inclusive PAINT, a que nos referimos há pouco — 
e executado por uma rotina localizada em $B26D, que manda 
imprimir uma mensagem do tipo ?SN ERRO, caso este delimi- 
tador não seja encontrado: 


* B= COD, ASCII DA VÍRGULA 

* COMPARA COM BYTE ATUAL DO PROGRAMA 

* VAI P/ SB277 SE POR DIFERENTE 

* CASO CONTRÁRIO TUDO Ok; VAI PEGAR OUTRO BYTE 
* B= COD. DE SN ERRO + 1 

* SEGUE P/ROTINA DE PROCESSAMENTO DE ERRO 


B26D LDB €52€ 
826” cMpB [5A6] 
B273 BNE $B277 
B275 JMP S9F 
B277 LDB 42 
B279 JMP SAC46 


Para a rotina que inicia em $ AC46, convergem, além desta, 
todas as demais rotinas de verificação de erros do sistema ope- 
racional: ela constitui a última fase do processo de error 
trap e realiza uma série de operações relacionadas com o tra- 
tamento e a identificação do erro detectado. Os primeiros 
passos desta rotina procedem a um MOTOR OFF e ressetam 
o stack e os parâmetros das rotinas de impressão, restabele- 
cendo a impressão no vídeo, se necessário. Em seguida, é 
enviada para a tela uma mensagem identificando o tipo de 


MICRO SISTEMAS, abril/B6 


erro, e caso este tenha sido verificado num programa, o núme- 
ro da linha em que ele ocorreu. O mecanismo de impressão 
dessa mensagem é o seguinte: 


* IMPRIME UM “7” 

* X APONTA P/ O INÍCIO DA TABELA DE ABREV, 
DAS MENSAGENS DE ERRO 

* SOMA B COM X 

* IMPRIME A ABREV.DA MENSAGEM 


ACSA JSR SBSAF 
ACSD LDX “SABAF 


AC6EÉ ABX 

AC61 BSR SACAR 
AC6I ESR SACAR 
AC6S LDX “SABER 
AC6B JSR SB99C 


* IMPRIME A PALAVRA “ERRO” 


Inicialmente, o registrador X aponta para a base de uma ta- 
bela contendo as abreviaturas das mensagens relativasàs 25 pos- 
síveis situações de erro; você pode ver esta tabela digitando FOR 
A=8&HABAF TO &HABEI:PRINT CHRS(PEEK (A));:NEXT. 
Cada abeviatura é sempre formada por dois dígitos — em ge- 
ral, duas letras — e assim é só somar o registrador B com o regis- 
trador X para se obter o início da abreviatura na tabela (por 
este motivo, o registrador B, ao entrar na rotina, deve conter o 
código de erro mais 1). O próximo passo é testar se o computa- 
dor se encontra a nível de comando direto, devolvendo-se o 
controle ao teclado em caso afirmativo; se não, imprime -se 
antes o número da linha onde foi observado o erro — na ver- 
dade, é impresso o número da linha corrente, ou seja, a linha 
que estava sendo executada no instante em que foi interrompi- 
do o processamento. 

Resta, por fim, ao usuário reparar o engano que cometeu 
e torcer pura que ao digitar RUN, novamente, tudo dé certo... 


ROTINAS DE ERRO DO USUÁRIO 


O sistema operacional destes equipamentos prevê, contudo, 
a incorporação de rotinas de erro desenvolvidas pelo usuário. 
Estas rotinas deverão fazer uso de uma ligação entre a ROM e 
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) SEU PROGR 


RETURN 


admite até 6 terminais > vídeo teclado 


a RAM existente nos endereços SI8E, $I8F e $190. Na 
realidade, o primeiro passo que a rotina de erro em $AC46 
executa ao ser chamada é um JSR $18E — algo como GOSUB 
$18E. Nesta posição encontra-se originariamente um código 
de RTS, de modo que o processamento siga de volta para a 
ROM. Todavia, se for introduzido aí um JUMP para o endere- 
ço de uma rotina, ela será executada antes de $AC46. 

Esta ligação, que tecnicamente se chama “gancho” (hook), 
é uma das mais importantes conexões do sistema operacional 
com o usuário: de fato, não haveria sentido em se dispor de 
rotinas da ROM para programas em linguagem de máquina, 
como as rotinas de acesso ao cassete, por exemplo, se após a 
verificação de um erro de gravação ou leitura o controle 
retornasse incondicionalmente ao BASIC com uma mensagem 
HO ERRO. Este desvio permite a criação de rotinas de erro 
particulares, capazes de proceder a uma manipulação diferen- 
ciada das situações passíveis de serem caracterizadas como 
erros. 

Podemos, assim, mandar o computador apontar a posição 
do erro na linha e substituir aquelas mensagens crípticas de 
duas letras por mensagens de erro completas. É isto o que faz 
o programa apresentado neste artigo. 


UTILIZAÇÃO DO PROGRAMA 


Grave primeiramente o programa da listagem anexa, após 
digitá-lo com atenção. Você pode modificar as descrições das 
mensagens de erro à vontade, mas lembre-se de procurar não 
exceder, por questão de estética, o limite de 31 dígitos por 
frase. Dé RUN e grave a versão final do programa, que deverá 
ser carregada e executada com o comando CLEAR 1000: 
CLOADM:EXEC. O micro deverá responder apenas OK. Se 
isto não acontecer, reveja a listagem anexa e procure por erros 
de digitação. 
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MENSAGEM DE ERRO NO COLOR 





Com o programa na memória, experimente digitar uma li- 
nha igual a esta: 


18 FOR J=1 TO 100; PRINT J:NEXT 


Em seguida, dê RUN. A tela deverá mostrar o seguinte: 


10 FOR J=1 TO 100 BB; PRINT J:NEXT 
SERRO DE SINTAXE 


A posição próxima ao erro será assinalada por um caráter 
gráfico em vermelho (CHR$ 239). Se você quiser usar outro 
caráter como indicador, substitua o EF na linha 100 pelo equi- 
valente em hexadecimal ao código do caráter desejado. Para 
obter um ponto de exclamação, por exemplo, troque EF por 
21. 

O algoritmo do programa é simples e consiste, basicamente, 
em listar a linha corrente até a posição indicada por $SA6-$S AT; 
imprimir o caráter gráfico; listar o restante da linha; e imprimir 
a mensagem por extenso. Se o erro for verificado num coman- 
do direto, apenas a mensagem de erro será exibida. Uma rotina 
opção: ao invés de limpar a tela e listar a linha do erro, acione 
a rotina de EDIT, colocando automaticamente tal linha em 
modo de edição. Esta prática, no entanto, tende a enfrentar 
alguns contratempos, especialmente em programas mais lon- 
gos. Considere o exemplo a seguir: 


10 A=257:8=191 

20 PMODE 3,1:COLOR 2,3:PCLS:SCREEN 1 
30 PSET (A,B): SOUND A,B 

4? GOTO 40 


Observe que, embora seja acusado somente na linha 30, o 
erro na verdade foi provocado bem antes, pela instrução 
A=257 na linha 10 (este parâmetro é considerado válido por 
PSET, mas não por SOUND). 

Este exemplo serve ainda para ilustrar uma limitação com- 
preensível da máquina: ela não é capaz de saber exatamente 
onde está um erro, apenas informa a situação em que ele se 
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a Assinala posicao do erro * 120 DATA 94,3E,8D,67,81,8D,85,56 

"» = imprime mensagem po ” JE,80,73,80,87,C7,6E,02,00,7E,8 
= “ug extenso e 3,84 
6 W--—== nn 130 * 
7 *w Ciuudio Costa - MS 02/04 = 140 DATA NEXT SEM FOR, ERRO DE 5 
8 'unucanennanuunnanaunanauuus nes INTAXE, RETURN SEM GOSUB, DADOS 
7 INSUF ICIENTES, CHAMADA ILEGAL DE 
10 CLEAR200,256"PEEK(116)-43051= FUNCAÃO 
VSóNREEK(116)-4291:F=1+110 150 * 
20 CLEG3IFORE=1 TO FIREADAS:POKEE 160 DATA SODRECARGA NUMERICA, MI 
VNALCCEHO+AS) NEXT MORIA INSUFICIENTE, LINHA INEXIS 
30 FORB -OTOZS:READMS:LSLENCMS)EP TENTE, INDICE FORA DA FAIXA, MAT 
DKEE,LIFORT=110L:C=ASC(MIDS(MS,T RIZ REDIMENSIONADA 
47) 4720 "* 
10 POKEE+T,CINEXTIESESL+SINEXTEIS O UATA UJIVISAO POR ZERO, INSTR 
CUND400,3:CLS UCAO DIRETA ILEGAL, ERRO DE DIGI 
SO PRIHTULPOE,"PREFARE O GRAVADOR TACAO, ESPALO PARA STRING INSUFT 
E TECLE ENTER“IIFINKEYS-"“THENS CIENTE, STRING MUITO LONGA 
Ú 190 * 
60 CSAVEMERNHSO”,1,E,I 200 DATA STRING MUIT COMPLEXA, 
O * IMPOSSIVEL CONTINUAR, DADO IRRED 
BO DATA D4,7E,97, 11,8E,30,6D,ULU, ULAR NO ARQUIVO, ARQUIVO JA ABER 
08,0F,01,6F,CE,00,08,34,40,7E,AÉ TO. DISPOSITIVO ERRADO 
.54,0F,6F,54,34,04,C1,03,26,04,7 240 * 
E,28,9F,A6,0C,60,6B14,FF,<27,2C,60, 220) DATA ERRO DE GRAVACAO/LEITUR 
AD,03,34,140,8D,A7,2B,H0,DU, ri A, MODO DE AKGUIVO ERRADO, ARQUI 
90 * JO NAO ABERTO, DADO APOS FIM DO 
100 DATA BD,BY,AL,Ia,IU, ,04,0E ARQUIVO, INSTRUCÃO DIK TA EM ARG 
h6,A6,04,34,42,6F,C4,8D,28,06,E uÚIvo, FUNCÃO INDEFINII 
F,BD,89,81,35,142,A7,84,27,02,60D, 





faz sentir. O programa, da mesma forma, apenas avisa onde 
um erro foi observado; cabe ao humano usuário, mais uma vez, 
tomar as medidas necessárias. 

Aí pode não haver outro jeito a não ser tentar outra vez € 
esperar que o micro volte daquela sub-rotina que não existe. 
A sorte é que, ao contrário de nós, ele não se cansa, e no mais 
das vezes, não parece ficar muito chateado com isso. = 

Es 
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Balanço, Demonstração de 
Resultados. Demonstração de Lucros 
e Prejuízos acumulados, Listagem por 
centro de custo e extrato de contas, 
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Faz a Folha de Pagamento de sua 
empresa, emitindo relatórios como 
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Relação para Banco, Informe de 
Rendimentos, Acumulados Anuais, 
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pode ser semanal ou mensal. As 
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acumulados e outras funções que 
agilizem o processamento da Folha de 
Pagamento da empresa. 
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Controla o estoque de itens com 
Especificação, Estoque Minimo, 
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Saídas no período, etc. 

Fornece Listagens Geral e Parcial dos 
produtos, Listagem Físico-Financeira, 
Listagem dos produtos abaixo do 
estoque mínimo, Lista de Preços 6 
Etiquetas, entre outras. 

Admite também, Reajuste de Preços, 
Alteração de Dados e Exclusão de 
Produtos. 
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Es 
SS 
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LR dana 
VERSÃO | 

2 drives, slims, 
VERSÃO Il 

1 drive FD/DD, 


RAM e Winchester 5 Mbytes. 


VERSÃO Ill 
1 drive FD/DD, 


RAM e Winchester de 10 Mbytes. 


VERSÃO IV 
1 drive FD/DD, 





BAURU — SP 


Digilógica 
CAMPINAS — SP 


Soft En Byte Tel. (0192)52-6369 


CAMPO GRANDE — MS 
New Line 
CATANDUVA — SP 
Catanduva 


Máquinas Te! (0175)22-6167 


CURITIBA — PR 


CSR Tel, (041)232-1750 


PROLOGICA 


RAM e Winchester de 15 Mbytes. 


EXPANSÃO DE 
MEMORIA 
e Placa expansão de 320 kbytes, ex- 
pandindo até 640 kbytes de memó- 
ria RAM p/SP16. 


Micrológica Tel Sh 142 


BELO HORIZONTE — MG 
ComputronixTel (031/1225-3305 
Tet.(031)223-4966 






SP 16 





COMPATIVEL COM 
IBM PC/XT 
(*) 










(preços sob consulta): 
FD/DD, 320 kbytes 


320 kbytes memória 


320 kbytes memória 


320 kbytes memória 


Revendedores autorizados 

FERNANDÓPOLIS — SP 
Compshow 
FORTALEZA —- CE 
Sisconp 


GOIÂNIA —- GO 
Sofr New 


Direto: (011) 220-5794 
Consertos e contrato de manutenção. 


e CP500 022D-M8B0, 
DOS-500, CP/M 80 colunas. 


e CP500 023D-M80, 2 drives FD/DOD, 
DOS-500, CP/M 80 colunas. 


e CP400 color || 64 kbytes. 
e CP2005, 16 kbytes.(precos sob consulta) 


DUSNZAS HE 
md LS 


Software video texto p/CP 500 


Modem EMBRACOM 
CP532C (RS232/CP500) 
Serial 300 

Joystick CP400 

Monitor colorido p/SP16.sob consulta 
Placa CP/M p/CP500 M.80 com 128 
kbytes RAM 





Tel (0174/42.1697 
Tel. 1085)244-4911 
Tel. (062)224-9322 


GOVERNADOR VALADARES 
Te!.(067/382-0682 MG 


7301, p/interligar 


7501 


cassete NCT-6201 


TÉCNICA 


MICROS 


Placa emuladora de terminal 
3278/3279 NCT-7101 PCOX. 


Flaca de comunicação BSC3 NCT- 


Placa emuladora de terminal 
3278/3279 NCT-7201 IRMA. 


Placa BACKUP disco rígido p/video 


PIS Sa NT 





(011) 2237388 


e Placa de CP/M 
p/SP-16 com 64 kbytes. 
Transforma restante da me- 
mória em RAM DISK 


COMUNICACÃO 


Placa rede de comunicação NCT- 
vários 




























Cabos de ligação micro/impressora 








* IBM é marca registrada da Interna- 
tional Business Machine 


PROGRAMAS - SP16 
E CPSO0O CFM 
Controle de estoque 

Contabilidade 
Folha de pagamento 
Contas a pagar e receber 
Cadastro de clientes 
Mala direta 
DATAFLEX mono e multiusuário 
8e 16 bits 
CONSULTE OUTROS SOFTWARES. 


SUPRIMENTOS 


Diskettes 5 1/4" caixa com 10 unida- 
des FS/DD 
FD/DD 
Formulário continuo 1 via: 
80 colunas (milh.) 
132 colunas (milh.) 
Fitas p/impressora: 
P500 
P720 






SP-16. 









IBM 













IBM 


















É 


PORTO ALEGRE — RS 


Hercos Tet.:(0512)25-4923 
RECIFE — PE 
Croma Tel (081)325-3493 


RIO DE JANEIRO - RJ 
Sinclair Place Te! (021]549-2699 
Sisteco Te! (021)220-9613 
SÃO BERNARDO DO CAMPO 


Computron Tel (0332)21-8412 sp 


NATAL — RN 


POÇOS DE CALDAS — MG 


Maximicros Tel (084)222-8918 


Micro Pocos Tel (035)721-1883 


Micro's Tel (011/448-6234 


441-2122 
SÃO PAULO — SP 


Benny Microcompu 


1 drive FD/DD, 






P740 
Mesa p/computadores 
Estabilizadores de tensão: 
0,8 kVA 
1,5 kVA 


IMPRESSORAS 


eP500S paralela ou serial 150 CPS, 80 
colunas, caracteres normais, compri- 
midos e expandidos, gráfico compati- 


vel com MX-80. 


eP720 paralelae serial 200 CPS 132 
colunas e compatível com MX-100. 
eP740 paralela e serial 400 CPS, 132 
colunas . (preços sob consulta) 
OBS.: Impressoras P5OO e P720 densi- 


dade gráfica compatível com gráficos 
LOTUS 1, 2, 3, Picture Graphic, etc. 































FILCRES ELETRÔNICA ATACADISTA LTDA. 
Rua Aurora, 165/179 — São Paulo — SP — Estacionamento próprio 
Tels.: Vendas (PBX) 223-7388 — 222-0016 — 223-7234 


TELEX(011/31298 


tadores Tel (011)570-1555 SOS Te!.(011/8265-0456 
Bom: Microcompu- SÃO VICENTE — SP 

tadores Tel, (011)93-1102 Alta-Reso- 
Cirty Micros Teis (011) lução Te! (0132)67-2496 

831-0944/832-9458 TAUBATE — SP 

Iguatemicro Tel 4011)815-9701 Ensicom Tel (0122)33-2944 
Garra Tel. (011/884-3042 UMUARAMA — PR 
NC Micro Tel (011)533-4388  CBM Tel, [0446)23-2233 
Opus Informá VITÓRIA — ES 

tica Te! (011)273-5757 Casa dos Tele- 
Provac Tel. (011)274-5861 fones Tel. (027)222-5011 
Tropical Tel (011/1543-9859  Composoft Tel. (027)222-5758 
Sisec Tel. (011)283-0853  WR Compu 
Cistec Tet.(011)288-5413 tadores Tel. (027)2253144 





Nesta última lição do curso, você vai ver como funcionam os 
compiladores. Aprenda, ainda, como se pode construir um. 








Curso de FORTH (VII) 


Antonio Costa- 


ma das características mais interessantes do FORTH é 

a extensibilidade, ou seja, a possibilidade do progra- 

mador acrescentar recursos ao compilador. Para fazer 

isto, entretanto, é preciso entender como um compi- 
lador funciona, 

Basicamente, compilador é um aplicativo que traduz progra- 
mas de uma linguagem para outra. À linguagem na qual os pro- 
gramas originais são escritos é chamada linguagem fonte, e a 
linguagem para a qual eles são traduzidos é denominada lingua- 
gem objeto. 

A linguagem fonte quase sempre tem características desti- 
nadas a melhorar o desempenho do programador. Entre estas 
características estão a facilidade de aprendizado e a capacidade 
de detectar erros. À linguagem objeto, por sua vez, é especifi- 
cada de modo a ser facilmente executada pelo computador. 

Do que foi dito, conclui-se que o computador não executa 
programas em FORTH tal qual você o concebe. O que a má- 
quina executa é a tradução dos referidos programas para a lin- 
guagem objeto. 


UMA LINGUAGEM OBJETO 


Vamos descrever brevemente uma linguagem objeto propos- 
ta por Lollinger e usada nos FORTHs publicados em MICRO 
SISTEMAS. Os principais comandos dela são: 

“ELSE — Salto incondicional para a frente. Se o computador 
encontra um “ELSE, ele salta um determinado número de ins- 
truções. O número de bytes do salto deve ser indicado pelo 
conteúdo da célula que segue o “ELSE, 

“WHILE — Salto incondicional para trás. O "WHILE é seme- 
lhante ao “ELSE, mas provoca o salto para trás e não para 
frente. Ver figura 1. 

“IF — Salto condicional para frente. O “IF causa um salto para 
frente, mas só quando houver O no topo da pilha. Como no ca- 
so do “ELSE e do "WHILE, a amplitude do salto é indicada 
pelo conteúdo da célula que segue o “IF. 

END — Salto condicional para trás. O “END controla, da 
mesma forma que o “IF, um salto quando encontra O no topo 
da pilha. O salto de “END, contudo, é para trás. Observe a fi- 
gura 1. 
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"DO — Esta instrução transfere dos inteiros da pilha para o re- 
torno. Estes inteiros serão os contadores de um laço repetitivo. 
"LOOP — Incrementa o topo do retorno e, se ele não se tornar 
igual ou maior do que o vice-topo, provoca um salto para trás. 
O comprimento do salto é indicado pelo conteúdo da célula 
ue segue o “LOOP. 

— Esta instrução imprime a cadeia de caracteres que a segue. 
O comprimento da cadeia deve preceder os códigos dos carac- 
teres. 


———eemeno 


ECODERENEER 
Co 
CIIIITI = 


Cada caixinha representa uma célula da 
memória onde estão armazenadas ins. 
truções em linguagem objeto As setas 
mostram a sequência seguida pelo com. 
putador para executar as instruções 
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Figura 1 
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: DIGITOS 10 O URI ! 


E 


[= [a [ce] à [= pólo] 


Compilação de URI ... VEM 





Figura 2 
COMO CONSTRUIR UM COMPILADOR 


Vamos fazer agora uma pequena brincadeira, a saber, in- 
ventar uma linguagem com palavras-chaves em portugués. Isto 
será fácil: basta acrescentarmos ao compilador FORTH as pala- 
vras e as estruturas de controle de nossa linguagenzinha. 

A primeira estrutura que definiremos é a VAI... VEM, Esta 
estrutura é equivalente ao DO...LOOP do FORTH normal. 
Antes de defini-la, porém, seria bom que você teclasse as defi- 
nições dadas na listagem 1. Aqui está a definição de VAL... 
VEM: 

: VAI COMPILE "DO HERE; IMMEDIATE 

: VEM COMPILE *LOOP HERE — €, ; IMMEDIATE 
Vamos ver como ela funciona. IMMEDIATE acrescenta ao 
compilador a última palavra que você digitou. Conclusão: tan- 
to VAI quando VEM foram incluídas no corpo do FORTH, 
Para perceber as consequências disto, siga passo a passo o pro- 
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cesso de compilação da palavra que se segue. 

: DIGITOS 100 VAII. VEM; 

De começo, o número 10 é compilado, isto é, transformado 
em binário e colocado no fim do dicionário. Para que o com- 
putador não o confunda com instruções, a palavra * é colo- 
cada antes dele. A mesma coisa acontece com o O, conforme 
mostrado na figura 2. Quando DIGITOS for executada, a op- 
ção de * & será empurrar o número que a segue na pilha. 

O passo seguinte do compilador é executar VAI. Isto fará 
com que *DO seja compilado. Ademais, o HERE colocará na 
pilha o endereço da célula que segue o "DO. Recorde-se que 
HERE fornece o endereço do fim do dicionário e que a última 
coisa inserida no dicionário foi "DO. 

Neste ponto, as palavras entre VAI e VEM são compiladas. 
Chega, enfim, o momento da atuação de VEM. A palavra 
“LOOP é posicionada como está esquematizado na figura 2. 
HERE joga na pilha o endereço que segue "LOOP. Subtraindo- 
se deste endereço aquele que foi empilhado por VAI, obtém-se 
a distância entre “DO e “LOOP. Tal distância é guardada logo 
após o “LOOP. O resultado final é que a palavra DIGITOS 


com VAI...VEM funciona como se houvesse sido definido as- 


sim: 

: DIGITOS 10 0 DO 1. LOOP; 

Na listagem 2, você encontrará a definição de mais três es- 
truturas: 
REPITA...ATé — Esta estrutura é equivalente ao BEGIN... 
UNTIL. 
REPITA...ENQUANTO...DENOVO - Funciona de forma 
idêntica ao BEGIN...WHILE...REPEAT., 
SE-FOR...SE-NãO...DEPOIS — Estas palavras são análogas ao 
IF...ELSE...THEN. 

Estude as estruturas acima e, com uma análise semelhante a 


que fizemos com VAI...VEM, procure entender como elas fun- ,, 


cionam. 
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Figura 3 





Na listagem 3, encontram-se definições cuja finalidade é dar 
nomes da língua portuguesa às palavras do FORTH. Assim é 
que PAGE passa a ser chamada LIMPA. E quando, durante a 
definição de uma palavra, o FORTH encontrar DESCARTE, 
ele compilará um DROP. Atente, contudo, para o fato de que 
DESCARTE só poderá ser usada em tempo de compilação, isto 
é, entre os dois pontos e o ponto e vírgula. 

Até agora nos limitamos a incluir na listagem que estamos 
inventando recursos que já existem no FORTH. Nada impede, 
porém, que incluamos estruturas novas. Veja esta por exem- 
plo: 

: UM 1; 

: INCREMENTA 1+ 

: VEZES COMPILE INCREMENTA COMPILE UM 

COMPILE *DO HERE; IMMEDIATE 


*OUTRAVEZ COMPILE "LOOP HERE — €,;, IMMEDIA- 


TE 
Observe a definição que se segue: 

: TESTE 5 VEZES I. OUTRAVEZ; 
Ao acionar TESTE, executaremos I seguido de ponto 5 vezes. 
Por sinal, a palavra CODI da listagem 3 também não existe no 
FORTH, mas é muito útil. Ela compila o código da letra que a 
segue. Por exemplo: 

: TRESLETRAS CODI A. CODIB.CODIC .; 
A palavra TRESLETRAS imprime o código das letras A, B e 
A a não precisaremos mais tentar nos lembrar de códigos 

HI! 


: LINHA 4 O UAI EMIT VEM 


: R0B011 128 149 183 144 LINHA; 
Y 


: R0B012 148 156 158 141 LINHA ; 


: ROBO1 (15 EMIT 
4 25 PIC ROBO11 
5 25 PIC R0B01Z2 
l 


| 6 25 PIC ROBOIS3 € 
7 25 PIC aesos;  [? | aan 
imprima o robô sempre no mesmo lugar da tela 





Figura 4 
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OUTRAS LINGUAGENS OBJETO 


Como era de se esperar, não existe só uma linguagem objeto 
para todas as versões do FORTH. Os chamados compiladores 
de código nativo, por exemplo, usam como linguagem objeto a 
própria linguagem da máquina onde estão instalados. Este é o 
caso do GRAFORTH e do HS FORTH. É por isso que o HS 
FORTH é tão rápido! 

O melhor modo de descobrir o funcionamento da linguagem 
objeto de seu FORTH é examinando as definições de palavras 
reservadas como DO...LOOP, BEGIN...UNTIL e IF...EL- 
SE...THEN. A definição destas palavras é sempre fornecida 
com os compiladores, pois os vendedores de software sabem 
muito bem que todo programador FORTH é um curioso e 
quer saber como a linguagem trabalha. No caso do MMS-FOR- 
TH, por exemplo, a fonte de todas as palavras reservadas está 
no disco de distribuição. Foi lá que descobri que o BEGIN... 
UNTIL do MMS FORTH é definido assim: 

: BEGIN HERE ; IMMEDIAT 

: UNTIL COMPILE | 3 MMS ,| ,; IMMEDIATE 
Várias coisas podem ser deduzidas facilmente desta definição. 
Em primeiro lugar, [3 MMS, ] deve ter o efeito de compilar 
um salto condicional e, portanto, é equivalente ao “END. No- 
ta-se, entretanto, que o endereço deixado por BEGIN é pos- 
to na frente da palavra compilada por | 3 MMS, | . Isto indi- 
ca que o salto deve ser absoluto, ou seja, deve ir para um en- 
dereço especificado em vez de apenas cobrir um determinado 
número de bytes. Com estas informações, já podemos definir 
REPITA...ATé em MMS FORTH: 

: REPITA HERE ; EDIATE 

: ATé COMPILE |3 MMS, |,; IMMEDIATE 

Em grande número de versões do FORTH padrão usa-se a 
seguinte linguagem objeto: 

(LOOP) — Equivale a “LOOP 

(DO) — Equivale a *DO 

BRANCH — Faz tanto o papel do “ELSE quanto o do 
“WHILE, 

OBRANCH — Reta como “IF e como "END. 

O FORTH do Macintosh é padrão e usa a linguagem objeto 
que acabamos de descrever. Cuidado, porém. As células do 
Macintosh são duas vezes maiores que as do TRS-80 e do Sin- 
clair, e, por isso, devemos substituir C, e | C! + por pala- 
vras que manipulem células duplas. Estas palavras são: | W,| e 

| Isto feito, as definições da listagem 2 ficam assim: 

AI COMPILE (DO) HERE ; IMMEDIATE 
: VEM COMPILE (LOOP) HERE — W, ; IMMEDIATE 
: REPITA HERE ; IMMEDIATE 
: ATé COMPILE OBRANCH HERE — W, ; IMMEDIATE 
: SE-FOR COMPILE OBRANCH HERE 0 W, ; IMMEDIATE 
: SE-NãO COMPILE BRANCH HERE 0 W, 
SWAP HERE OVER — SWAP W! ; IMMEDIATE 

: DEPOIS HERE OVER — SWAP W! ;, IMMEDIATE 


O ROBÓ DANÇANTE 


Vamos fazer um programa interessante. Com ele, você 
pode tocar piano pelo teclado de seu computador. Enquanto 
você toca, um pequeno robô dança no vídeo, acompanhando o 
ritmo da música. 

Para começar, deixarei para você a fácil tarefa de escrever 
programas que desenham o robô em diversas ec sega de dan- 
ça. Os programas ROBO1, ROBO2 e ROBOS, por exemplo, 
desenham os robôs mostrados na figura 3. É claro que, em má- 
quina sem alta resolução, não se consegue o nível de detalha- 
mento da figura 3. 

Para definir as palavras que desenham os robôs, usa-se o mé- 
todo explicado na lição IV, MS nº 52, e exemplificado com a 
minhoca egípcia. Aqui, porém, surge um fator complicante. A 
minhoca pode ser feita em um única linha de caracteres gráfi- 
cos enquanto o robô precisa de várias linhas. A solução mais 


direta para o problema, embora não a mais elegante, é definir a 
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Escreva para nós e 
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SOFT MSX 


APLICATIVOS 
JOGOS 
EDUCATIVOS 


TUDO EM MICROS 
Cursos — Hardware 
Suprimentos — Soft 


ATENDEMOS TODO 
O BRASIL. 
SOLICITE CATÁLOGO 


AV. CASTELO BRANCO,800 
S. 106 — CEP 65075 
FONE (098) 227-1615 
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onde você AINDA 
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PARA PROBLEMAS COM MATERIAL DE 
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Fita Impressora 
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e Qualquer Quantidade 
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— ALICE 
— DISMAC — FACIT 
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SOFWARE BARATO! 


A ALFAMICRO coloca a sua disposição os 
melhores programas do mercado interna- 
cional ao menor preço. 


PROGRAMAS PARA APPLE 


Escolha os seus entre mais de 2.000 títulos 
que cobrem as mais variadas aplicações a 
Cz$ 35,00 por disco . 


PROGRAMAS PARA CP-500 


Os mais famosos títulos a Cz$ 45,00 por 
disco. 


POSSUIMOS TAMBÉM PROGRAMAS PA- 
RA IBM-PC e $-700 


Escreva já! E recebe nosso catálogo. 


ADQUIRA PELO CORREIO PERIFÉRICOS 
E ASSESSÓRIOS PARA APPLE E IBM-PC 
PELOS MELHORES PREÇOS. 


OFERTA! 


ALFAMICRO INFORMÁTICA 
Cx. Postal, 12.064 — 02098 
F. 011 - 950-8998 - São Paulo - SP 









CURSO FORTH (Vil) 


uma palavra para cada linha. As várias linhas são combinadas 
como mostrado na figura 4, para o caso do TRS-80. Nesta fi- 
gura, PTC é usado para garantir que todas as posições do robô 
sejam impressas sempre no mesmo lugar. Se sua máquina é Sin- 
clair (ZX81), é possível imprimir os caracteres que formam 
uma linha do robô digitando-os diretamente do teclado e colo- 
cando-os entre as aspas da estrutura a 

Associemos agora uma tecla e uma versão do robô a cada 
nota musical definida na lição 1 (MS nº 49). A associação é 
feita com palavras como as definidas na listagem 4, que você 
deve estender para incluir todas as notas. Atenção, porém! 
Ao acrescentar uma nova palavra, coloque a anterior entre o 
SE-NãO e o DEPOIS. Por exemplo, eis a definição de TEN- 
TE-SOL: 

: TENTE-SOL DUP CODI E = 

SE-FOR TOQUE SOL MOSTRE ROBO3 
SE-NãO TENTE-FA DEPOIS ; 

Veja que a palavra definida antes de TENTE-SOL foi TENTE- 
FA e, por isso, ela aparece entre o SE-NãO e o DEPOIS. A 
idéia desta cadeia de definições pode ser entendida notando 
que TENTE-SOL verifica se o código no topo da pilha é o da 
letra E. Se for, a nota sol é executada e, se não for, chama-se 
TENTE-FA para comparar o topo da pilha com o código de D. 
Caso TENTE-FA também falhe, TENTE-MI será chamada, 
e assim por diante. 

Finalmente estamos prontos para a definição que fecha este 
curso: 
: PIANO 15 EMIT LIMPA REPITA LEIA-LETRA TENTE-SOL 

ATé ; 

15 EMIT apaga o cursor do TRS-80 e não precisa ser usado em 
outra máquina. 


PALAVRAS DO FORTH PADRÃO 


Neste curso, tentei manter-me próximo do FORTH padrão. 
Várias vezes, porém, não o segui na tentativa de permitir aos 


Listagem 1 


HEH 

“COMPRE SF SF, PF 
CREATE “DO 

( No TARS-80 tecie a linha abaixo) 

6104 * “DO + 

( No Sinclair ZH-81 tecle a linha abaixo) 
9895 * “DO ! 

CREATE “LOOP 

(No TARS-8O tecle a linha abaixo) 

6126 '*' “1L00P * 

( No Sinclair Spectrum tecie a linha abaino) 
958F535 * “LOOP ! 


Listagem 2 


URI COMPILE “DO HERE ; IMMEDIATE 

VEM COMPILE “LOOP HERE - C, ; IMMEDIATE 
- REPITA HERE ; IMMEDIATE 
- ATé COMPILE “END HERE - C, ; IMMEDIATE 
: SE-FOR COMPILE “IF HERE DC, ; IMMEDIATE 
: SE-NGO COMPILE “ELSE HERE 0 C, 

SIDAP HERE OVER - SIVAP C! ; IMMEDIATE 
DEPOIS HERE OUER - SIWAP C! ; IMMEDIATE 
ENQUANTO COMPILE “IF HERE DC, ; IMMEDIATE 
DENOVO COMPILE “WHILE SIWAP MERE Cc, 

NERE DODUER - SIDAP C! ; IMMEDIATE 





+ + IMMEDIATE 






















Listagem 3 


DECIMAL 

: RAOUI HERE 

: NODA-LINHA CR; 

: RALOQUE ALLOT ; 

: LIMPA PAGE ; 

: LEIA-LETRA KEY 

: AEIA-CADEIA TOKEN ; 
DESCARTE COMPILE DROP ; IMMEDIATE 
TROQUE COMPILE SWAP ; IMMEDIATE 
COD! COMPILE “% ASPACE LEIA-CADEIA 

AQUI 1+ Ce , ; IMMEDIATE 


Listagem 4 


TOQUE DESCARTE SM - 

O CONSTANT MOSTRE 

: TENTE-DOM | DUP CODI A - 
SE-FOR TOQUE DON MOSTRE ROBOI 
SE-NSO DESCARTE 1 DEPOIS ; 

: TENTE-RE DUP COD! B = 
SE-FOR TOQUE RE MOSTRE ROBOZ 
SE-NãSO TENTE. DOH DEPOIS ; 

: FTENTE-MI DUP CODI C = 
SE-FOR TOQUE MI MOSTRE ROBOS 
SE-NGO TENTE-RE DEPOIS ; 

: TENTE-FA DUP CODI D - 

SE-FOR TOQUE FAR MOSTRE ROBOZ 

SE-NãO TENTE-MI DEPOIS ; 






















leitores usar os compiladores publicados em MICRO SISTE- 
MAS. Para remediar isto, fomeço abaixo algumas palavras 
do FORTH padrão e as comparo com as usadas nas lições. 
EXPECT — Espera dois argumentos na pilha. O primeiro é um 
endereço e o segundo, um inteiro menor que 256. Lê caracte- 
res do teclado e os coloca nas células que começam no ende- 
reço. A leitura termina quando for digitado retomo de carro ou 
quando o número de caracteres lidos for igual ao inteiro menor 
que 256. Equivale a INPUT. 

WORD — Da mesma forma que TOKEN, lê uma cadeia de ca- 
racteres até encontrar um cujo código ASCTI esteja no topo da 
pilha. Diferentemente de TOKEN, contudo, deixa na pilha o 
endereço onde a cadeia lida foi colocada (geralmente no fim 
do dicionário). 

EXECUTE — Executa a palavra cujo endereço está no topo da 
pilha. Equivale a EXECUT. 

FIND — Fomece o endereço de execução da palavra que a se- 
gue. Assim, se eu teclar FIND UP, o endereço de DUP é deixa- 
do na pilha. Este endereço pode ser usado por EXECUTE para 
disparar DUP. O apóstrofo dos FORTHs de MICRO SISTE- 
MAS têm comportamento idêntico ao de FIND. 

CREATE — Equivale ao <BUILDS. 

(LIT) — Colocado na frente dos números compilados para avi- 
sar que O computador não deve executá-los. Tem o mesmo pa- 
pel que o "4 nos FORTHs publicados em MS. 
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PROGRAMAS 





OLIVEIRA, R. DAS,., Coleção 
de Programas para MSX, Aleph 
Editora. 


Dirigido especificamente a usuá- 
rios que não conhecem computa- 
ção, este livro se baseia no princí- 
pio de que, em programação, é 
preciso, antes, usar o computador 
e, só depois, estudar teorias. 


Desta forma, ele introduz o 
iniciante ao universo do micro- 
computador através de dois breves 
capítulos: Digitação e Edição e 
Gravação em Fita. Após lé-los 
atentamente, o usuário já pode 
partir para a prática, digitando 
os programas, mesmo sem com- 
preendê-los inicialmente. Esses 
programas são bem simples e cur- 
tos e apresentam comentários res- 
saltando suas particularidades e 
destacando as técnicas emprega- 
das. Dentre eles estão: Two 


liners gráficos; Náutilus; Tank; 


Perspectivas; Picasso e Two-liners 
sonoros. 


MIRSHAWKA, V., Gráficos no 
TK90X, Editora Nobel. 


O livro apresenta programas 
em BASIC capazes de demonstrar 
ao leitor as potencialidades gráfi- 
cas do TK90X, embora não dê ex- 
plicações detalhadas sobre as ins- 
truções. 

Os programas são ao todo 31 
e estão ligados a áreas como Ma- 
temática, Física e Desenho, possi- 
bilitando a obtenção de espirais; 
circuitos eletrônicos; visão tridi- 
mensional dos corpos e biorrit- 
mo, entre outros. 


ADDAIR, P., indo além com o 
CP -400 Color, Editele. 


O livro é um suplemento ao 
manual do CP-400 Color e visa 
permitir um uso mais eficiente 
do equipamento através da avalia- 
ção dos seus recursos avançados 
de programação, vídeo, disco e fi- 
ta. 

Para cada recurso avaliado é 
apresentado um programa, que 
pode ser executado separadamen- 
te ou agrupado, possibilitando 
assim novas aplicações. 


BANK, B., BAS/C Manual de 
Conversões, Ao Livro Técnico 
Editora. 


Este é um guia capaz de aju- 
dá-lo na conversão de programas 
entre os micros da linha Apple, 
TRS-80 e Pet. O livro é dividido 
em três capítulos destinados a e- 
quipamentos específicos. Em cada 
um deles são apresentados os co- 
mandos do equipamento em pau- 
ta, os comandos do equipamento 
para Oo qual se deseja fazer a con- 
versão e, ainda, alguns comentá- 
rios sobre eles. Logo a seguir, são 
abordadas as peculiaridades de ca- 
da linha. 


JAMES, M., Inteligência 
Artificial em BASIC, Editora 
Campus. 


Esta é uma obra introdutória 
à Inteligência Artificial. Nela são 
abordados alguns pontos impor- 
tantes sobre o assunto e discuti- 
das as possibilidades de suas apli- 
cações nos dias de hoje. 

As idéias apresentadas no livro 
são acompanhadas por programas 
que ilustram os métodos. Por se- 
rem escritos em linguagem BASIC, 
os programas permitem o enten- 
dimento por um grande número 
de leitores. 


ENDEREÇO DAS EDITORAS 


Aleph Editora — Av. Brigadei- 
ro Faria Lima, 1451, conj. 31, 
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Editora Campus — Rua Barão 
de Itapagipe, 55, CEP 20261, 
tel.: (021) 284-8443; 

Editele — Rua Casa do Ator, 
1060, CEP 04546, São Paulo; 
- Ao Livro Técnico S, A. — Rua 
Sá Freire, 40, São Cristóvão, 
tel.: (021) 580-4868, CEP 20930; 

Editora Nobel — Rua da Bal- 
sa, 559, CEP 04546, tel.: (011) 
257-2144. 
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16 Manual do Microprocessador Z-B0 — 
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soal — Sawusch, M. — Cz$ 124,00 


ESTA É APENAS UMA SELEÇÃO DE NOSSOS TÍTULOS. PARA MAIORES INFORMAÇÕES SOLICITE NOSSO CATÁLOGO. 









O 


0. q... ......... cr aE sa. “ 


Editora Lampus 


Rua Barão de Itapagipe 55 - 20261 - RJ- RJ - Tel.: (021) 284 8443 


S | DESEJO RECEBER AS PUBLICAÇÕES 
REFERENTES AOS NÚMEROS ASSINALADOS: 


DDODDDDDDDA 


D Vigo DIV. U io la do GOUO O VIE 06 DU CA [) Mediante pagamento contra recebimento 
dos livros pelo reembolso postal, acrescido 
de despesas postais. 


SAMA PORANHAINRNAANCAE ME nm. 


o a... 6. 4 .467:6 






- 
0... - 


[] Mediante envio de cheque nominal à Edi- 
tora Campus Ltda. (O porte é por nossa 
conta e sua encomenda chega mais rápido.) 
CU id (a a RE e Tá dea 


LN ADIRANXANANHADINENA MMA. 








NOSSAS PUBLICAÇÕES ESTÃO A VENDA TAMBÉM NAS BOAS LIVRARIAS 





MS/Abril 





Linha APPLE 


Gráfico 
tridimensional 


Este programa faz um gráfico 
que parece saltar da tela. É óti- 
mo para ser inserido no final de 
seus programas, dando um toque 
pessoal. 








S HGOR2 : HCOLOR= 35 


to ROT= O 

20 FOR G = 1 TO 64: SCALE= 6 

SO DRAW 1 AT 140,96: NEXT 

40 POKE 232,0: POKE 233,5 

so FOR X = 768 TO 790 

&0 READ Y: PDFE Xx,Y: NEXT 

7O DATA 1,0,4,0,536,172,96,946,62, 
246,228,22,359,356,246,352,39,5 


Tu! 12,54,6,0 
GET FIMS: TEXT : HOME 


















Mário César Franchi — SP 


Linha TRS-80 


Pontuação monetária 


Use esta dica para pontuar valores 
monetários em números de até 16 al- 
garismos. 





JO CLEAR1I0OOO 
20 CLS: INPFÚT"DIGITE UM NUMERO" NH 


O C6=STKS (N4): GOSUE92 

ão PRINTCS 

SO PRINTEB60,: INPUT"OUTRA CONSULTA 
S/N";MS 

&0 IFM$="S"THENDOELSEEND 

972 IFLEN(C$S) =9THENKRE TURNELSEFORX1 
=LEN(CS)-1TOISTEP-T: IFXI<=5THEN94E 
LSEJ$S="."+*«MIDS(CS,X1I-1,53)+JSINEXT 

94 IFXI=OTHENXI=4ELSEXI=X1+1 

Sé CE=MIDSICS, 1, X1I)+JS 

98 JS=""INA=0O! RETURN 


Mervyn de Oliveira — MG 


Linha SINCLAIR 


Abertura de programas 


Rode esta dica no seu Sinclair e 
verá que é uma abertura interessante 
para qualquer programa. 


Paulo Henrique Jurisato — SP 





LINHA ZX81/FORTH 






outra base de numeração, bastando 
apenas especificá-la antes de dar o 
comando GRAFCOD: 

2 BASE $ GRAFCOD. 










Fabio A. Rodrigues Correa — SP 





Envie suas dicas para a Redação de 


MICRO SISTEMAS na Av. Presidente 
Wilson, 165 - grupo 1210. Centro, Rio de 


Janeiro, RJ. CEP 20030 


MIC 1000 


Mensagem de erro 


Quando há problemas em um 
programa e você está num dos mo- 
dos gráficos do MC 1000 fica difí- 
cil ler a mensagem de erro pois ao 
voltar para o modo TEXT, nor- 
malmente é executado um HOME 
antes. 

Mas, com esta dica, você pode- 
rá ver facilmente qual foi a men- 
sagem: 

Primeiramente, vamos provocar 
um erro no modo GR: 





Como podemos observar, a li- 
nha 20 passou os limites do modo 
GR e para que o erro ocasionado 
possa ser visto, digite DEBUG. 
Após ter visto o erro, volte ao 
BASIC e digite TEXT. 


Kieber Desan — PR 


GRAFCOD 


Este comando em FORTH lista no vídeo os caracteres gráficos do seu 
ZX81, com seus respectivos códigos em decimal, hexadecimal ou qualquer 
















Warm Start 


Acrescentando à di- 
ca publicada em MS nº 
45 (PEEKS e POKES 
no COLOR), informo 
que para se conseguir 
um Warm Start prepara- 
do no computador, de- 
ve-se digitar: POKE 113, 
85 e em seguida RESET. 


Fernando Monteiro 
Guerrero — MG 


Linha TRS-830 


POKES no CP 300 


Tenho um CP 300 há um ano e 
estou enviando algumas dicas sim- 
ples, mas que eu “apanhei” muito 
para descobrir. Por não possuir im- 
pressora, os programas de um ami- 
go que a tinha nunca rodavam no 
meu micro. Assim, estas dicas ser- 
vem para ajudar jovens programa- 
dores para que não “apanhem” 
como eu: 

Desvio do Vídeo: desvia para a im- 
pressora toda informação que nor- 
malmente aparece na tela: 

POKE 16414,141 : POKE 16415,5 
Desvio da Impressora: (1) — desvio 
automático de todas as instruções 
que enviam sginais para a impressora. 
POKE 16422,67 : POKE 16423,0 
(2) — faz com que todas as instru- 
ções LPRINT sejam direcionadas 
para o vídeo. 

POKE 16422,88 : POKE 16423,4 
OBS.: Não use os dois desvios no 
mesmo programa. Execute POKE 
16422,141 : POKE 16423,5 para 
voltar tudo ao normal. 


Nelson Lima Neto — MG 
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Linha TRS-COLO 


Cópia de segurança 


Veja como tirar cópias de progra- tar cSAVEM seguido do nome do 
mas em linguagem de máquina que programa, deverão estar os endereços 
não tenham auto-execução. separados por vírgulas ( , ), da seguin-. 





Linha TK 2000 


Reformulando 
o INKEY$ 
Esta dica atua como a função 


INKEY$. Lê o teclado e associa 
a tecla pressionada a uma variá- 



































Siga as seguintes instruções: te forma: 

| — Carregue o ab em LM. cSAVEM “PROGRAMA”, INI. vel, e ps CNPUT ou GET 

2 — Digite as seguintes instruções: CIO, FIM, EXEC io sapo ne sm A 
primeira parte deve ser di- 

7 PERK(126) *256+PEEK(488) gitada e executada no início do 

7 PEBRAAZO) ZICMRBEM IS! enem programa. 

? PEEK(157)*256+PEEK(158) Observações: E laio ciais 





Deverão aparecer três endereços 20 DATA 32,67,240,141,239, 149.94 


-1 após cada instrução. 

O primeiro endereço indica o INÍ- 
CIO do programa; o segundo indica 
o FIM e o último, o endereço de 
EXECUÇÃO do programa (EXEC). 
Será útil amotar os endereços. 
Para copiar o programa, após digi- 


1 — O nome do programa deverá 
ter no máximo oito caracteres; 

2 — Algumas vezes, os endereços 
de início e fim do programa coinci- 
dem, sendo mais provável que ocor- 
ram em programas de 16 Kb. 

Esta dica foi desenvolvida num CP 
400 Color, com 64 Kb de RAM, 












0 FOR | = 38768 TO 38774; 
A: POFE 1,4: NEXT 1 


RE fd 









Já a segunda parte faz a leitu- 
ra do teclado. Pode também ser 
usada como uma sub-rotina: 


$0o00 Calt 3SBZ6B 

GO0J0O | = FrEkK (83871 - 128 
TR IR WX 4 4 JNEN'K = SE 
90% MG = CHRS (ch) 


















Augusto Anderson Brown Santos — BA 





Roberto Kato Pereira — ES 
Cassiano Franco Bernardes — ES 


Linha 
ZX SPECTRUM 





LINHA GERAL 
Buble Sort 


Na listagem abaixo, você vê 
um exemplo de SORT, que or- 
dena os caracteres da STRING 


ZX SPECTRUM 


Incrível DRAW II 


Em MS nº 50, vi a dica “O In- 
crível DRAW” e mesmo pensan- 


LET Ls=AS:F: 
ag:F' = 


programa: PRINT PEEK 23627+ 
256 “PEEK 23628- PEEK 23635- 
256 "PEEK 23636 

22) Para verificar o nº de bytes li- 
vres na RAM: PRINT PEEK 23730 
+256 *PEEK 23731 —-PEEK 23653 
-256 “PEEK 23654 

34) Teste para saber se o micro 
tem 48 Kb: IF PEEK 23733=255 
THEN PRINT “48Kb” 

42) Para eliminar o espaço dos 
gráficos definidos pelo utilizador: 
POKE 23765,255 

POKE 23676,255 

CLEAR 65534 


Fizagir: 


O OVER 1 PAPER O BRIGNT 4 
O FOR =x=0 TO 455 STEP 35 
O INK ENDes 


o PLoT 30 90 
o DRAU 100,0 ,.PI+» 
O NEXT « 


CL 


agi ao AS. Variáveis do sistema 

do que seria tolice eu a rodei. Fi- | Ed 
quei maravilhado com o poten- e Da e ida iii "Aqui vão algumas dicas que o 
cial do comando. Assim, resolvi 36 ERINT ÀS ajudarão a compreender melhor seu 
estudá-lo. Após algum tempo, OO CET Nate, A ta com o ZX Spectrum: 
descobri um efeito bem seme- dO eDR Kafe 12) Para verificar o nº de bytes 
lhante, embora mais complexo. 0. iii inss ocupados por um determinado 

70 

so 

so 


pepepo popa pa popa pa ps 


a 
5 
< 
> 
- 
s 
6 


Experimente substituir as 
duas linhas abaixo e compare a 
velocidade de execução. 


Carlos Alexandre da Silva — RJ 





120 POR KasN TO F+i STEP -à 
E IF Ag:k/ c=AgIiF) THEN GOTO 1 










Linha ZX81 
Nhoc-Nhoc 


Este simples programa em BASIC 
TK pode, além de causar um bom 
efeito de explosão em jogos, assustar 
um “leigo”, fazendo-o pensar que a 
TV está estourando. O que causa 
tudo isto é a linha 30. O código 126 


Esta rotina foi listada em um 
SINCLAIR, mas pode ser usada 
em qualquer micro, com modifi- 
cações mínimas. 


Marco Henrique Alexandre Costa 


RJ Hamilton E. L. de Souza — PR 









(número) faz com que os próximos se causar o efeito. Convém lembrar (. dO CET xePEEr 16356+256+PEEH' 1 
5 bytes fiquem invisíveis, encolhendo que os POKES são feitos no início de “20 FOR N=x422+33 TO 447433 STE 
o D-FILE. cada linha, devendo-se evitar a im- "Sa core q 126 
: : XT 
Para causar um efeito ainda me- pressão de algo que será reaproveita- O NE cú: 
lhor, basta aumentar o volume da TV 'dolá. 50 FOR N=i TO aê f 
70 FRINT Se CARACTERES 125 


Para anular o efeito basta dar um 
CLS, POKEAR um código diferen- 
te de 126 no local (um looping) ou 
então imprimir com P +, COMO 
no exemplo da listagem abaixo: 


ou ligar um rádio FM em tomo de 90 
MHz, para ouvir um ruído parecido 
com o de um caminhão ou avião. 

Na linha 20 define-se o intervalo 
de linhas (22 a 7, no caso) onde quer- 


+ ExT 


q RR 
GOTO 20 


o co 
OS 







Fábio Antônio Rodrigues Correa — SP 





À À 
Os microcomputadores da linha MSX possuem um grande repertório | 

de comandos, muitos deles ainda desconhecidos. Desfrute deste potencial, 
valendo-se das principais instruções do MSX BASIC. 











ste é o terceiro e último artigo 
sobre o padrão MSX, e nele abor- 
daremos de maneira geral todos 
os comandos do MSX BASIC. 
Por uma questão de objetividade, di- 
vidimos os comandos em 11 grupos se- 





ERROR ON INTERVAL 
INTERVAL ON/OFF/STOP ON KEY GOSUB 
KEY (n> on/0PF/STOP ON SPRITE GOSUB 
SPRITE ON/OFF/STOP ON STOP GOSUB 
STOP ON/OFF/STOP ON STRIG GOSUB 
STRIG ON/OFF/STOP RESUME 

ON ERROR GOTO 


DEF USR 
ERR/ERL 
FRE 

KEY LIST 
KEY ON/OFF 


KEY <n> a” (série) " 


FOR-NEXT ON GOTO 
GOSUB RETURN 
coTo RESUME 
IF THEN ELSE ON GOSUB 


CIRCLE POINT 

CLS PRESET 
COLOR PSET 

DRAW PUT SPRITE 
LINE SCREEN 
PAINT SPRITES 


BEEP PLAY ( <n> |) 
PLAY SOUND 


omandos do MSX 


Oscar Júlio Burd e Luiz Sérgio Y. Moreira 


gundo suas funções: uso em programa- 
ção; som; entrada e saída; fluxo; uso ex- 
clusivo em gráficos (este já devidamente 
comentado no segundo artigo sobre os 
MSX, publicado em MS nº 54); uso em 
texto; manipulação de variáveis; mani- 


COLOR 
CSRLIN 
LOCATE 
PRINT 

PRINT USING 


DIM 

END 
ERASE 
ERR/ERL 


SCREEN 
SPRITES 
SPC 

TAB 

WIDTH 

Pos 

PUT SPRITE 


NEW 
READ 
REM 
RENUM 
RESTORE 
RUN 
STOP 
TROFF 
TRON 


BLOAD 

BSAVE 

CALL FORMAT 
CALL SYSTEM 
CLOAD 

CLOSE 

CoPY 

CSAVE 

DSKF 

EOF 

FIELD 

FILES 

GET é 
INKEYS 

INP 

INPUT 








pulação de memória; tratamento de 
interrupções; funções matemáticas e 
outras. 

Note que o MSX BASIC possui mais 
de 180 comandos e funções, sendo tam- 
bém a mais poderosa das linguagens 


INPUTS 

INPUT é 

KILL OUT 

LFILES PAD 

LINE INPUT PDL 

LINE INPUT PRINT 

LIST PRINT + 

LLIST PRINT USING 

LOAD RUN 

LOF RSET 
SAVE 

LPRINT STICK 

LSET STRIG 

MAXFILES 

MERGE 

MOTOR ON/OFPF 


RIGHTS 
SPACES 
STRS 
STRINGS 
SWAP 
VAL 





MICRO SISTEMAS, abril/86 


a dos com dezenas de programas e exemplos. 





para micros de 8 bits existente no mun- 


do. A nível de mercado nacional, o SÍMBOLO FUNÇÃO EXEMPLO 
MSX BASIC pode séT comparado com NANA NM Retorna dados numéricos com notação em PRINT USING" 4 44 
en E retio pois este é uma nontó ELGCUTALS, PANAA ";234.56 
maquina de Its. HA ae 
Na figura 1, você encontrará os 11 ss Adiciona S antes de dados numericos., PRINT tic 
grupos de funções e seus respectivos co- a kecê A à e Epi 
a + - 
mandos do MSX BASIC. Por questões 3 eus FA apt Fm pro o ER NO 
de espaço, trataremos com alguma pro- Ei ii E ci sq 
fundidade aqueles comandos que julga- Ia 
mos importantes em cada grupo. "a Coloca o sinal - após números negati - PRINT USING" - 
Vamos ao assunto. vos. “;-1.25 
“o Formata o número de dígitos apresenta- PRINT USING" “9 + 
USO EM TEXTO dos de um dado numérico. .. ", 355.45 
SCREEN: Serve para selecionar 0 lecitsa ig com ooo DESSE espaços em PRIN, USING'**";1.2549 
é ; a ranco de um numérico. 
tipo de tela. SCREEN O ajusta a tela de 
texto para 40 caracteres por 24 linhas; po Coloca uma vírgula a cada três dígitos PRINT USING'e eee, 
SCREEN 1 ajusta a tela para 32 caracte- à esquerda do ponto decimal. .. ";348.23,29 
res cem A U Retorna o primeiro caráter de uma sé- PRINT USING" 
NG: Usado para imprimir rie de caracteres. ";AS 
séries de caracteres ou números em for- ad 
, , “n esp“ Retorna n+2 caracteres de uma serie de PRINT USING" “;DS 
matos específicos. Existem formatos 
- caracteres. 
para séries de caracteres e formatos para 
números, que podem ser melhor visuali- a Retorna todos os caracteres de uma sé- PRINT USING"&";CS 
zados na figura 2. AS, 
PUT SPRITE: Este comando, que já Figura 2 


foi explicado no artigo Comandos Grá- 
ficos no MSX (MS nº 54), permite o 
uso de sprites em modo texto 1 (SCRE- 
EN 1). 


10 SCREENI,O 

20 SPRITES (B) =CHRS (255) 

SO PRINT'“MOREIRA E BURD* 

40 FORI=0T0O10O0O:PUTSPRITEO, (LI, 
95),9,8:NEXT 

so END 


O programa anterior faz o seguinte: 
a linha 10 coloca o micro em modo tex- 
to 1 com sprites de 8x8 pontos; a linha 
20 define o sprite número 8 como sen- 
do uma linha de 8 pontos(CHR $(255)); 
a linha 30 imprime o texto “MOREIRA 
& BURD”; a linha 40 movimenta o- 


sprite na horizontal da posição O até a 
posição 100; e a linha SO finaliza o pro- 
grama, permanecendo o micro em modo 
texto, porém, com o sprite fixo na 
tela (experimente pressionar ENTER 
várias vezes e veja O que ocorre com o 
sprite). 


FAÇA DO SEU COMPUTADOR UM GÊNIO 


O MELHOR SOFTWARE EM LIVROS PARA SEU COMPUTADOR 


7 COLEÇÃO DE PROGRAMAS 
PARA MSX Cz$ 93,00 
Renato da Silva Oliveira et al. - Uma sequência de progra- 
mas explicados em ordem crescentç de dificuldade para 
aprender a usar os recursos do padrão. 


3 INFORMÁTICA NA ESCOLA  Cz$ 67,00] 8 LINGUAGEM BASIC MSX 
Zunerkom e Foltran-Livro didático às crianças escrito numa 
linguagem simples e divertida. A comunicação é facilitada 
pelo diálogo com o Tekinho, simpático robó criado especial- 


mente para esta obra. úteis apêndices. 


4 SUPER BASIC TK 1 
B Grossi c Moldonado - Transforme seu Mg dos pes d sp DO PROGRAMADOR C:$ 99.00 


Computador, usando Basic compilável. Você pode elaborar 
programas em Basic que rodam, após a Sed nach com à Roberto Massaru Watanabe - Os segredos dos diskertes do 
Apple desvendados de maneira simples c didática. 


velocidade do Assembly. SA 
Como utilizar o DOS 3.3. 
5 ASSEMBLY 6502 Cz$ 97,00 
Eidos: cad nda rara HÃO GUIA DO PROGRAMADOR 


2 DOMINANDO O EXPERT Cz$ 102,00 
Denise Santoro - Os primeiros passos na programação do 
Expert, micro do padrão MSX 


Cz$ 105,00 


Denise Santoro - Uma enciclopédia com todos os comandos 
e funções do poderosíssimo Basic MSX, explicados detalha- 
damente em ordem alfabética. Obra completa com vários e 


Bernhard Wolfgang Schon - 

ue aprender a programar em linguagem de máquina num 
pple Il ou TK 2000. 

Muitos exercícios resolvidos e exemplos. 


Cz$ 110,00 


IM 
Todos os detalhes do sistema operacional CP/M no Apple, 
incluindo a listagem disasemblada e comentada. 


11 EXPLORANDO O TK 90 X Cz$ 90,00 


M. Silveira - Aprenda todos os principais (truques) que o 
manual não contou, digitando programas de ótimo nível: 
As Escadas c o Castelo, Editor de Caracteres, Arquivo, 
Disassembler. Etc... 


6 TABELA DE MNEMÔNICOS 


DO 6502 Cz$ 22,00 
Bernhard Wolfgang Schon - Indispensável para consulta ao 
se programar em Assembly 6502 


APROFUNDANDO-SE NO MSX Cz$ 125,00 
Todos os detalhes do MSX (VDP, PPI, PSG, ETC) explica- 


Desejo receber os livros correspondentes aos números assinalados 


pa talelseqriejo qi | 


INOUNÔE soscuiuiidasiueas cortacspr lisas ras LEIS va Ride CLS iara sapo a datas ds para ALEPH P.A.P. Ltda. 

. “Av. Brig. Faria Lima, 1451 

EMPATE anseiam dnnires e tesss drs As st Air L toda aii aa sa cano Sp Ud CEP 01451 - S. Paulo - SP 
Telefone: (011) 813.4555 


SOLICITE REI AÇÃO COMPII IA DE FODOS NOSSOS LIVROS GRA FUTIAMENTI 


Estou enviando o cheque nominal cruzado nº .........cciiiisssiseseseeieoo 


dd ENG sussa tasas 


COMANDOS DO MSX 





MANIPULAÇÃO DE MEMÓRIA 


VPEEK: Retorna o conteúdo do byte 
de uma determinada posição da memó- 
ria de vídeo (VRAM). Cabe lembrar que 
os MSX nacionais possuem 16 Kb de 
memória exclusiva para vídeo, a qual 
pode ser inclusive utilizada para arma- 
zenar dados. Este comando é semelhan- 
te ao comando PEEK. 

VPOKE: Armazena um byte num 
dado endereço da VRAM, sendo similar 
ao comando POKE. 

10 SCREENO 

2o FORI=0TOZ9 
30 VPOKEI,6S 
40 NEXT 

SO END 

O programa acima preenche a primei- 
ra linha da tela de texto O com o caráter 
A (código ASCII = 65). 


TRATAMENTO DE INTERRUPÇÕES 


Este é um das pontos altos do MSX 
BASIC, pois permite inclusive o uso de 
um relógio interno para interrupção 

r tempo. 

ON INTERVAL GOSUB: Determina 
que a cada intervalo de tempo (especifi- 
cado no comando), o fluxo do programa 
seja desviado para uma sub-rotina 
qualquer. 


to SCREENO 

zo T=1 

Z0 ONINTERVAL=60G0OSUE1000 

40 INTERVALON 

SO FLAY"C":GOTOSO 

1G90 PRINTT:" segundos” 

1010 T=T+1: EEEP 

LOZO RETURN 

O programa anterior simula um cro- 
nômetro, pois mostra na tela a passa- 
gem do tempo de segundo em segun- 
do. Na linha 30, determinamos que a 
sub-rotina da linha 1000 seja executada 
a cada segundo (60 pulsos do relógio 
equivalem a um segundo); na linha 
40, ligamos esta modalidade de interrup- 
ção; e na linha 1010, incrementamos a 
variável T (tempo). 

ON KEY GOSUB: Determina que 
uma sub-rotina seja executada quando 
uma das dez teclas de função for pressio- 
nada. 

10 SCREENO 

20 ON EYGOSUELOOO, , 2000 

50 KEY CI)ON:KEY (3) 0N 

ão PRINT'.";:GOTO4O 

1000 CLS:FRINT"MICRO" 

1010 RETURN 

2000 PRINTIPRINT" SISTEMAS" 
2010 RETURN 


Na linha 20 definimos que ao ser 
pressionada a tecla Fl, deve ser execu- 
tada a sub-rotina da linha 1000 e que ao ser 
pressionada a tecla F3 deve ser executa- 


da a sub-rotina da linha 2000. A linha 
30 liga o sistema de interrupção das te- 


60 


clas Fl e F3. Experimente. Após o 
início da execução do programa, pressio- 
nar a tecla Fl e, em seguida, F3. 

ON SPRITE GOSUB: Determina que 
uma sub-rotina seja executada quando 
ocorrer uma colisão de sprites, ou seja, 
quando um ponto de um sprite tocar 
um ponto aceso de outro sprite. 


10 SCREENL,O 
20 SPRITES (0) =CHR$ (255) +CHR$( 


ES) 


O UMNSFRITEGOSUB1L000 

40 SFRITEON 

“o FLRI=OTOLSO 

50 FUTSPRITEO, (I,1I),7,.0 
7ôo FUISFRITEL,(1,95),9,0 
Bo NEXT 

vu SOTOSO 

1000 PRINT"EUM",I 

tuto RETURN 


Na linha 20 definimos o sprite O 
como uma barra; na linha 30 determina- 
mos que a sub-rotina da linha 1000 de- 
ve ser executada sempre que houver 
uma colisão de sprites; na linha 40 
ligamos o sistema de interrupção por 
colisão de sprites. 

Da linha 50 até a 80 movimentamos 
o sprite O em dois planos distintos, em 
caminhos que se encontram. Na linha 
1000 imprimimos o BUM seguido do va- 
lor de I (coordenada horizontal da co- 
lisão). 


FUNÇÕES MATEMÁTICAS 


OCTS$: Converte um número deci- 

mal em uma série de caracteres que re- 

resentam o valor octal deste número 
base 8). 


10 INFUT"DIGITE UM NUMERO" :N 
20 PRINTOCTS(N) 
>0 GOTO1O 


O programa anterior recebe um nú- 
mero decimal (linha 10) e imprime o 
seu equivalente octal (linha 20). 

HEXS$: Semelhante à função anterior, 
retornando, porém, o seu equivalente 
na representação hexadecimal (base 16). 


10 INFUT"DIGITE UM NUMERO" SN 
20 PRINTHEXS CN) 
30 GOTUIO 


BINS$: Similar às funções anteriores, 
retornando, porém, o número na sua 
representação binária (base 2). 


10 FORI=0TO25S 
20 FRINTI,EIN$CT) 
0 NEXT 

40 END 


O programa anterior imprime os nú- 
meros de O até 255 com sua respectiva 
representação binária. 

USO EM PROGRAMAÇÃO 


Os MSX trazem todos os comandos 


existentes nos micros mais avançados, 
tais como AUTO, RENUM, CLEAR 
etc. Falaremos, a seguir, dos comandos 
ERR e ERL que auxiliam na correção 
e manipulação de erros, inclusive do 
próprio usuário. 

ERR: Retorna o código do erro. 

ERL: Retorna o número da linha 
onde ocorreu o erro. 


10 ONERRORGOTO1000 

20 INFUT"DIGITE UM NUMERO" ;N 
30 PRINT'LO/"ENSt="5 

40 PRINTLO/N 

So GOTO 20 

1000 FRINT"CODIGO DE ERRO";ER 
R 

1010 PRINT'NA LINHA"; ERL 

1020 RESUMEZO 


O programa anterior imprime o resul- 
tado da divisão de 10 pelo número que 
você digitou. Caso ocorra um erro (vo- 
cê digitou O ou uma letra), é executada 
a sub-rotina da linha 1000, indicando 
qual o erro e em que linha ele ocorreu. 


USO EM SOM 


A geração de som e efeitos sonoros 
é mais um ponto forte do MSX, veja 
por quê: 

PLAY: Este comando permite execu- 
tar músicas segundo uma macrolingua- 
gem musical. Nesta macrolinguagem é 
possível tocar oito oitavas, modificar O 
tempo de execução de uma música, uti- 
lizar até dez formatos de ondas sonoras 
diferentes etc. 

É importante lembrar que os MSX 
contam com três canais de som inde- 
pendentes (o que permite a geração de 
sons e músicas extremamente comple- 
xas) e que O integrado gerador de som 
pode executar uma tarefa musical in- 
dependentemente da UCP, isto é, o 
micro pode tocar uma música enquanto 
a UCP executa operações diversas. 


LO FLAY"SIMZOOO" 

20 FLAY"CDEFG", "DEFGA", "D&EFG 
AR" 

zo GoTOZO 


Na linha 10 o canal de som é ajusta- 
do para emitir um formato de onda 
especial; na linha 20 executa-se a músi- 
ca “CDEFG” neste mesmo canal À com 
som de piano, “DEFGA” no canal B 
com som de órgão e “O6EFGAB” no 
canal C com som de órgão na sexta 
oitava. 

SOUND: Usado para manipular os re- 
gistradores do integrado de som, tam- 
bém chamado de PSG (Programmable 
Sound Generator). Estes registradores 
controlam itens como volume, mixagem 
de ruído, formas de ondas sonoras etc. 
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10 SOUNDA4, 23: SOUNDS, 0: SOUND, 
0 SOUNDZ, 3: SOUND9, 2: SOUNDIO, 
30 SOUNDI 1, 89: SOUNDIZ, 2: SOUND 
30 PRINTPRICRO SISTEMAS":GOTO 
40 


No programa anterior temos um 
exemplo do poder sonoro dos MSX, 
gerando o som de um helicóptero. Na 
linha 40 temos a impressão contínua da 
mensagem MICRO SISTEMAS enquan- 
to é emitido o som. 


USO EM ENTRADA E SAÍDA 


Neste segmento, incluímos, todos os 
comandos do sistema operacional MSX 
DOS e os comandos do MSX BASIC. 
Trataremos apenas deste último, deixan- 
do os comandos do MSX DOS para um 
próximo artigo. 

LINE INPUT: Associa os caracteres 
digitados a uma variável alfanumérica, 
aceitando o delimitador vírgula (,) como 
um caráter qualquer (acabou a velha 
dor-de-cabeça). 

STICK: Retorna um valor numérico 
conforme o estado do controlador de 





Na linha 10 é lido o estado das teclas 
de controle do cursor e na 20 é impresso 
o valor deste estado. Experimente 
pressionar duas dessas teclas ao mesmo 
tempo. 

STRIG: Retoma o estado dos botões 
de disparo do controlador de jogo ou 
da barra de espaço. Se um destes elemen- 
tos for pressionado, retorna o valor -1, 
em caso contrário, será retomado o va- 
lor zero. 


LO M=STRIG(O) 
20 PRINTM 


30 GOTOLO 


Na linha 10 é lido o estado da barra 
de espaço (ou do botão de disparo do 
controlador); a linha 20 imprime o 
valor do estado. Experimente pressio- 
nar a barra de espaço e confira. 


USO EM FLUXO DE PROGRAMAS 


IF THEN ELSE: Este é o comando 
IF THEN, comum a todo BASIC, rela- 
cionado ainda com o ELSE (senão), que 
é realizado quando a comparação do 
IF resulta em falso. 

















erro; RESUME NEXT, onde o progra- 
ma continua na instrução imediatamen- 
te após o erro; e RESUME número da 
linha, onde o programa continua na li- 
nha de número indicado. 


USO NA MANIPULAÇÃO DE 
VARIÁVEIS 


INSTR: Busca a primeira ocorrência 
de um ou mais caracteres dentro de ou- 
tra série de caracteres, imprimindo os 
caracteres iniciais desta ocorrência. 


10 A$="OQO RATO ROEU" 

LO PRINTAS 

>0 INPUT"DIGITE UMA LETRA OU 
PALAVRA" SNS 

ão PRINTINSTR(A$,NS) 

SO GOTO 10 


Na linha 40 descobre-se o local da 
ocorrência da série de caracteres de N$ 
na frase O RATO ROEU que está em 
AS$. Para experimentar e compreender, 
digite estes exemplos: O, TO, ROEU. 

SWAP; Troca o conteúdo de duas 
variáveis entre si. 
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e DIGITAPE C 5 — Cz$ 11,20 
e DIGITAPE C 10 — Cz$ 12,80 
e DIGITAPE C 15 — Cz$ 13,60 
e DIGITAPE C 20 — Cz$ 14,40 
e DIGITAPE C 30 — Cz$ 16,80 
e DIGITAPE C 46 — Cz$ 17,60 
e DIGITAPE C 60 — Cz$ 19,00 
e BASF C'60 Cz$ 22,40 
e SCOTH C60 — CzS 20,80 
e FITA DE LIMPEZA 

DE CABEÇOTE — (Cz$ 14,00 
e FITA VIDEO K-7 T 120 — Cz$ 170,00 
e MICROFONE MkK2Z 

LESON — Cz$ 290,00 
e TWEETER LESON 100W — Cz$ 55,00 
e MODULO P/ K7 — Cz$ 12,00 
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MS É FEITA 
PARA VOCÊ 
PARTICIPAR 
COM SUA 
OPINIÃO 


Escreva-nos dizendo qual 
a sua área de interesse, 
conte-nos também as 
suas experiências com seu 
micro, O que você quer ver 
publicado em MS, o que 
você acha da sua MS, 

isto irá nos ajudar a 

fazer de MICRO SISTEMAS 
a SUA revista. 

E lembre-se: todo leitor 
que nos escreve concorre 
automaticamente a uma 
assinatura de um ano de 
nossa MICRO SISTEMAS. 
Mande logo sua opinião 
para Redação de MICRO 


SISTEMAS no Rio de 
5 Janeiro ou em São Paulo. 
QU) 


Av. Presidente Wilson, 165 
grupo 1210 - Centro - CEP 20030 


Rio de Janeiro - Tel.: (021) 262-6306 
Rua Oliveira Dias, 153 
Jardim Paulista 


São Paulo/SP - Tel.: (011) 853-7758 


COMANDOS DO MSX 





Nosso propósito, neste tópico final, é 
fazer um breve relato dos comandos d 
níveis para a manipulação de arquivos em fi- 
ta cassete. Em seguida, daremos um exem- 
plo simples de um programa para demonstrar 
alguns dos comandos. 

BSAVE E BLOAD: Armazena e lé da 
fita um arquivo binário. Este arquivo pode 
conter dados de memória, uma tela gráfi- 


ca, programas em linguagem de máquina 
e 


tc. 

BLOAD “TESTE”: Carrega o arquivo 
TESTE na memória, 

CSAVE E CLOAD: Armazena e lé arqui- 
vos BASIC exclusivamente em fita. 

CSA VE “TESTE” 

OPEN E CLOSE: Acessam um dispositi- 
vo como um arquivo de entrada ou saída. 


O dispositivo pode ser: gravador, impresso- 
ra, tela de texto, etc. CLOSE fecha o dispo- 
sitivo. 


OPEN “CAS: FOR OUTPUT AS FÉ 3, 
abre o gravador cassete como arquivo de 
saída com número de referência'3. Para se 
escrever um dado no gravador, usa-se, por 
exemplo, PRINT % 3, “Testando...” 

Exemplo: OPEN “CAS:" FOR INPUT 
AS & 2, abre o gravador cassete como arqui- 
vo de entrada com número de referência 2. 
Para se ler do gravador, usa-se, por exemplo: 
INPUT É 2,1L$ 

O programa, a seguir, é um exemplo sim- 
ples de uma agenda telefônica de dez 
nomes: 


to GUTOTOO 

20 CLS:FORI=0TOGIPRINTISO- "5 
“INPUT"noOmes "ENOSCT)S INPUT" 
elefone= ";TEGCLISSIFTESCI)<>" 
F'ORTES [(1)<>"4"THENNEZTIRETUR 


NELSERE TURN 

30 CLSLPRINT'pressionoe REC e 

PLAY no gravador" PRINT'e ENT 

ER no micro": GOSUBZ0OU 

40 OPEN"CAS: "FOROUTPUTASRI.FPR 
INT14,! 

SO CLS:PRINT'"gravando. e.“ 

&0 FORK=0TOLSPRINTAL, NOS (KO FP 
RINT1L, TES (EK) INEXTICLOSETRETUR 

MN 

70 REM 

8o CLSIFRINT'posicione a fita 
e tecle PLAY"IPRINT'"tecle EN 
TER no micro“: BOSUBZ00O 

So ELS:PRINT'Iendo dados... "5 

OPEN“CAS: “FORINPUTASS 1: INPUTA 
1,1 


Na linha 30 os conteúdos de A e B 
são permutados, resultando na impres- 
são dos números 6 e 5. 


OUTROS COMANDOS 


TIME: É uma variável reservada do 
sistema. Esta variável conta o tempo, 
sendo automaticamente incrementada a 
cada 1/60 segundo. 


to TIME=O 

O FORI=OTOSPYVINEXT 

O PRINT'YESTE “FOR” DEMORUU"; 
TIME/ã0:" segundos” 

ao END 


Na linha 10 colocamos O como valor 
inicial em TIME ;na linha 20 é executado 
um FOR para deixar o tempo correr; e 
na linha 30 são impressos quantos se- 
gundos demorou o MSX BASIC na 
execução do programa. Se você, depois 
disso, escrever PRINT TIME a qualquer 


Manipulando arquivos em cassete 


100 FDORK=07T01-12 INPUTHS, NOS (E 
1, TES (KI INEXTICLOSE: RETURN 
110 CLS:FORK=0TOT-I:PRINTNOS « 
Es, TES (KIINEXT 

1720 PRINT'"tecle ENTER para co 
ntinuar "s; GOSUBZOO; RE TURN 

200 TFINKEYSC>CHRAS (13) THENZOO 
ELSERE TURN 

300 CLoOsPRINT"Moreira & Burd” 
:PRINT"I-novos dados“: PRINTOZ 
“grava dados" !PRINT'S-le dado 
s"sPRINT'4A-LISTA DADOS" :PRINT 
ne TM" 

210 AS=INKEYS: IFAS=""THENSIOE 
LSEONVAL (4%) GOSUB2O, JO, 7O, 110 


400 


520 G0T0S00 
400 CLS:PRINT"adous. .." 
410 END 


Ao utilizar esta agenda, pela primeira 
vez, você deve selecionar a opção | e incluir 
os nomes conforme o programa pede. Mais 


tarde, quando você desejar alterar um nome 
da lista (por exemplo, o quinto nome), sele- 
cione a opção |, pressione ENTER até 
surgir '5S-nome=' e então escreva o novo no- 
me (o mesmo é válido para telefone). A 
função das outras opções é: 5 = encerrar o 
programa; 4 = listar os dados correntes; 
3 = ler os dados da fita, e 2 =armazenar os 
dados atuais em fita. Note que é possível 
ter vários arquivos, cada qual com um con- 
junto de nomes diferentes. Os programado- 
res experientes podem alterar o programa 
dg aceitar uma quantidade maior de da- 
os. 

Nossa observação final sobre esta maté- 
ria é de que ela representa apenas uma pe- 
quena amostra do MSX BASIC, pois seria 
impossível descrever todos os comandos em 
um único artigo. Um aspecto observado por 
nós foi o de que em nenhum livro ou ma- 
nual constam todos os comandos do MSX 
BASIC, fato este que nos levou a escrever 
um guia de referência completo do MSX, 
que está em edição pela MacGraw-Hill do 
Brasil, 

Terminamos com uma observação pes- 
soal: dentro do mercado de micros de 8 
bits, o MSX é, sem dúvida, o melhor compu- 
tador que já utilizamos, quer seja pelas faci- 
lidades que apresenta em programação, 
quer pela total padronização de seus perifé- 
ricos. 


momento, você verificará que o valor 
de TIME sempre aumenta (pois o tempo 
passa). 

VARPTR: Descobre o endereço na 
memória do MSX em que uma determi- 
nada variável ou matriz em BASIC está. 
Uma vez determinado este endereço, 
você pode passá-lo para um programa 
em linguagem de máquina (por exem- 
plo) que poderá ler o conteúdo da variá- 
vel ou elemento da matriz. Este coman- 
do é muito útil para programadores 
experientes que trabalham com lingua- 
gem de máquina. 


Oscar Júlio Burd e Luiz Sérgio Y. Moreira, 
ambos formados em Física pela USP, são di- 
retores da Informática, Educação e Serviços, 
empresa especializada na produção de sof- 
tware educacional e assessoria a colégios. Ela 
desenvolve ainda programas que exploram os 
recursos sonoros do MSX, como o programa 
TOQUE 
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Ideais para endereçamentos, identificações e rotulagens, podendo 
ser utilizadas em impressoras de 132 ou BÔ cls. que tenham tratores 
reguláveis, máquinas de escrever e processadores de texto. 

Você encontra as etiquetas REDIFORM em embalagens econômicas, 
contendo a quantidade adequada a sua necessidade: 600, 900, 
1200, 1800, 3600, em quatro formatos. 
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Servem para confecção de cartas, memorandos, avisos, relatórios e 
outras correspondências e podem ser utilizados em impressoras de 
132 ou 80 cls. que tenham tratores reguláveis, máquinas de escrever e 
processadores de textos. 

você encontra embalagens com 250 e 800 folhas e 300 jogos de ? vias, 
em dois formatos. 


Aplicações em controle de estoques, identificação de produtos, 
arquivos, etc., podendo ser utilizadas em impressoras de 132 ou 
80 cls. que tenham tratores reguláveis, máquinas de escrever e 
processadores de texto, 
Estas fichas possuem alta durabilidade, pois são feitas em papel 
Cartão Branco de 180 grs/mº. | 

Você encontra as fichas REDIFORM em embalagens de 250 unidades, teem nt 
em dois formatos. 


A Linha Pessoal de Informática REDIFORM você encontra nos 
principais Magazines e Lojas Especializadas. 


Para maiores informações, ligue: 
Da Grande São Paulo: 872-3316 - De outros locais: (011) B00-3316 
(nós pagamos seu interurbano) 


FORNECEDOR TOTAL 
PARA INFORMÁTICA 


MOORE 


À WE mm) | TeCUISOS E preço acessivel recebeu a | revistas de usuários disponiveis para ele 
ICTO gra atenção dos criadores de programas e | Internacionalmeme. 

lança no Brasi periféricos em todo o mundo E aqui o TK 90X já sai com mais de 
- MICTO pessoal 


no mundo. 


À parir de agora a história dos 
mICrOS pessoais val ser contada em duas 
panes: antes e depois do TK 90X. 

O TK 90X é, simplesmente, 0 Único 
micro pessoal lançado no Brasil que 
merece a classificação de “software 
machine : um caso raro de micro que 
pela sua facilidade de uso, grandes 





Para você ter uma idéia, existem | 100 programas, enquanto outros estão 
mais de 2 mil programas, /À em lase final de desenvolvimento para 


lhe dar mais opções para trabalhar, 
aprender ou se divertir que com qualquer 
QUiro MICTO. 

O TK 90X tem duas versões de 
memónia [de 16 ou 48 K), imagem de 
alta resolução gráfica com 8 cores, 
carregamento rapido de programas 
(controlável pelo próprio monitor), som 
pela TV, letras maiúsculas e minúsculas 
e ainda uma exclusividade: acentuação 
em ponuguês. 

Faca O seu programa: peca já uma 
demonstração do novo TK 90X 


livros, 90 pentéricos e inúmeras ga 








TIK DOX 


color Computer 


Folhado h ABICIAA 


